DOS/V Power Report 1996 February/VPR9602A.ISO/fwindows/archive/helphint.lzh/EXAMPLE.FRM

Text File | 1992-09-01 | 6KB | 197 lines

VERSION 2.00
Begin Form Form1
   Caption         =   "チップヘルプサンプル"
   Height          =   3585
   Left            =   4500
   LinkTopic       =   "Form1"
   ScaleHeight     =   3135
   ScaleWidth      =   5550
   Top             =   3750
   Width           =   5670
   Begin CommandButton Command1
      Caption         =   "ﾋﾝﾄ"
      Height          =   375
      Left            =   600
      TabIndex        =   2
      Top             =   1440
      Width           =   855
   End
   Begin ListBox List1
      Height          =   570
      Left            =   3840
      TabIndex        =   6
      Top             =   600
      Width           =   1455
   End
   Begin PictureBox Picture1
      Height          =   495
      Left            =   240
      ScaleHeight     =   465
      ScaleWidth      =   465
      TabIndex        =   4
      Top             =   600
      Width           =   495
   End
   Begin OptionButton Option1
      Caption         =   "ﾎﾞﾀﾝ"
      Height          =   270
      Left            =   1920
      TabIndex        =   3
      Top             =   1545
      Width           =   855
   End
   Begin Image Image2
      Height          =   615
      Left            =   480
      Top             =   1320
      Width           =   1095
   End
   Begin Label Label2
      Caption         =   "ボタンなど MouseMove イベントを持たないコントロールの時はイメージコントロールなどを重ねて配置するとよいでしょう。"
      Height          =   855
      Left            =   480
      TabIndex        =   5
      Top             =   2040
      Width           =   4575
   End
   Begin Image Image3
      Height          =   615
      Left            =   1800
      Top             =   1320
      Width           =   1095
   End
   Begin Image Image1
      Height          =   480
      Left            =   3240
      Picture         =   EXAMPLE.FRX:0000
      Top             =   1440
      Width           =   480
   End
   Begin Label Label1
      Caption         =   "マウスを持っていくとヘルプが表示されます"
      Height          =   255
      Left            =   360
      TabIndex        =   1
      Top             =   120
      Width           =   4815
   End
   Begin Label HELP
      BackColor       =   &H0080FFFF&
      BorderStyle     =   1  '実線
      Caption         =   "チップヘルプ本体"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "ＭＳ ゴシック"
      FontSize        =   10.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Left            =   1200
      TabIndex        =   0
      Top             =   720
      Visible         =   0   'False
      Width           =   1815
   End
End
Option Explicit
DefInt A-Z
Dim IsHelp

Sub Command1_Click ()
    Dim MSG$

    Beep
    MSG = "イメージコントロールが完全にボタンの下に隠れていると"
    MSG = MSG & " MouseMove イベントが発生しないのではみ出して設置します。"
    MSG = MSG & "しかしこれだとマウスがはみ出した部分でも"
    MSG = MSG & "イベントが発生してしまいます。困るときは"
    MSG = MSG & "引数の X , Y を使って場所を確認して、"
    MSG = MSG & "ボタン上の位置の時だけチップヘルプを表示する"
    MSG = MSG & "ようにするとよいでしょう。"
    MsgBox MSG, , "ヒント１"

    Beep
    MSG = "ここでイメージコントロールを使いたくない人は、"
    MSG = MSG & "Windows のメッセージを捕まえる VBX 等を使い、"
    MSG = MSG & "ボタンへの WM_MOUSEMOVE を捕まえて"
    MSG = MSG & "チップヘルプを表示するようにするとよいでしょう。"
    MsgBox MSG, , "ヒント２"

End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    IsHelp = 0
    HELP.Visible = False
End Sub

Sub Image1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsHelp = 0 Then
        HELP.Left = 3120
        HELP.Top = 1200
        HELP.Caption = "イメージコントロール"
        HELP.Width = 2175
        HELP.Visible = True
        HELP.ZOrder 0
        IsHelp = 1
    End If
End Sub

Sub Image2_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
'イメージコントロールが完全にボタンの下に隠れていると
' MouseMove イベントが発生しないのではみ出して設置します。
'しかしこれだとはみ出した部分でもイベントが発生してしまうので
' X , Y の引数を使って場所を確認して、
'ボタン上の位置の時だけチップヘルプを表示する
'ようにするとよいでしょう。
    If IsHelp = 0 Then
        HELP.Left = 360
        HELP.Top = 1200
        HELP.Caption = "コマンドボタン"
        HELP.Width = 1575
        HELP.Visible = True
        HELP.ZOrder 0
        IsHelp = 1
    End If
End Sub

Sub Image3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsHelp = 0 Then
        HELP.Left = 1680
        HELP.Top = 1200
        HELP.Caption = "ラジオボタン"
        HELP.Width = 1335
        HELP.Visible = True
        HELP.ZOrder 0
        IsHelp = 1
    End If
End Sub

Sub List1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsHelp = 0 Then
        HELP.Left = 3720
        HELP.Top = 360
        HELP.Caption = "リストボックス"
        HELP.Width = 1575
        HELP.Visible = True
        HELP.ZOrder 0
        IsHelp = 1
    End If
End Sub

Sub Option1_Click ()
    MsgBox "ラジオボタン"
End Sub

Sub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    If IsHelp = 0 Then
        HELP.Left = 120
        HELP.Top = 360
        HELP.Caption = "ピクチャコントロール"
        HELP.Width = 2175
        HELP.Visible = True
        HELP.ZOrder 0
        IsHelp = 1
    End If
End Sub