TOP > カテゴリ > Visual Basic >

ウインドウのタイトルを変更する

ウインドウのタイトルを変更するサンプルです。

サンプルの実行画面

ソースコード

[SetWindowText.frm]

'ウインドウのタイトルを変更するAPI関数

'<引数>
'hWnd:ウインドウのハンドル
'lpString:文字列

'<戻り値>
'正常終了のとき 0 以外

Private Declare Function SetWindowText Lib "USER32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long


Private Sub Command1_Click()

   Dim Ret As Long
      
      Ret = SetWindowText(Form1.hWnd, Text1.Text)

End Sub


Private Sub Form_Load()

  Text1.Text = "実行を押してください"

End Sub

ソースコード一式のダウンロード

vbapi_setwindowtext.zip 833 バイト (833 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事



公開日:2015年03月06日
記事NO:00426