FC2ブログ

    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。
     

    かっこいいな

    文句無しですね
    かっこいいですね
    うまいとかへたとか言っちゃいけません!

    All-Night Movers
    http://davidrhoden.bandcamp.com/
     

    日曜プログラム

    VB6 ってのを最近ちょこちょこ

    さんざん考えてこうやるんだ~
    ok/cancel 画面って


    Public OwnerFormName As Form    '開き元フォーム
    Public OwnerFormProcess As String  '開き元実行処理
    Public Message As String      '確認ダイアログせりふ

    Private Sub Form_Load()
    Label1.Caption = Message
    End Sub

    '******************************************************************************
    '
    'OKボタン
    '
    '******************************************************************************
    Private Sub OKButton_Click()
    Call Unload(Me)
    CallByName OwnerFormName, OwnerFormProcess, VbMethod
    End Sub

    '******************************************************************************
    '
    'キャンセルボタン
    '
    '******************************************************************************
    Private Sub CancelButton_Click()
    Call Unload(Me)
    End Sub


    あとは開く画面のボタンに set っての入れれば
    いろんなとこでこの画面出せる
    エクセルでも使えそうかな???
    CallByName って書くとこが曲者!

     

    iTunes Store で生活に潤いを

    iTunes Store(Japan)
    プロフィール

    ぴ~太郎

    Author:ぴ~太郎
    日々のいろいろな出来事を書いていきます

    最新記事
    最新コメント
    最新トラックバック
    月別アーカイブ
    カテゴリ
    ブロとも申請フォーム

    この人とブロともになる

      
    検索フォーム
    RSSリンクの表示
    ボーズ・オンラインストア
    CineMate 1 SR digital home theater speaker system Wave systems CDプレゼントキャンペーン ボーズ SIE2 スポーツヘッドホン
    リンク
      
    ランキング参加中
    ブログランキングブログランキング
    QRコード
    QR
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。