* พริกแห้ง 8-10 เม็ด
* ข่า 5 แว่น
* ตะไคร้ 2 ต้น
* หอมแดง 5 หัว
|
* กระเทียม 5 หัว
* ลูกผักชี 1 ช้อนโต๊ะ
* กะปิ 1 ช้อนโต๊ะ
* ผงฮังเล 2 ช้อนชา
|
.topic 1 This is a text pop-up window for Text Box Control Help. .topic 2 This is a text pop-up window for Button Control Help.
#define FirstTopic 1
Option Compare Database
Const HH_DISPLAY_TOPIC As Long = &H0
Const HH_SET_WIN_TYPE As Long = &H4
Const HH_GET_WIN_TYPE As Long = &H5
Const HH_GET_WIN_HANDLE As Long = &H6
Const HH_DISPLAY_TEXT_POPUP As Long = &HE
Const HH_HELP_CONTEXT As Long = &HF
Const HH_TP_HELP_CONTEXTMENU As Long = &H10
Const HH_TP_HELP_WM_HELP As Long = &H11
Const g_sHTMLHelpFile As String = "MyProject.chm::/Popuptext.txt"
Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Private Declare Function HtmlHelpByRefArg Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByRef dwData As Any) As Long
Private Declare Function GetDlgCtrlID Lib "user32" (ByVal hWnd As Long) As Long
Private Type HH_IDPAIR
dwControlId As Long
dwTopicId As Long
End Type
'This array must contain the number of controls that have
'context-sensitive Help, plus one more for a zero-terminating
'pair.
Private ids(3) As HH_IDPAIR
Private Sub Control1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
iRetCode = HtmlHelpByRefArg(Me.hWnd, _
g_sHTMLHelpFile, HH_TP_HELP_WM_HELP, ids(0))
End If
End Sub
Private Sub Control2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
iRetCode = HtmlHelpByRefArg(Me.hWnd, _
g_sHTMLHelpFile, HH_TP_HELP_WM_HELP, ids(1))
End If
End Sub
Private Sub Form_Load()
ids(0).dwControlId = GetDlgCtrlID(Me.hWnd)
ids(0).dwTopicId = Me.Control1.HelpContextId
ids(1).dwControlId = GetDlgCtrlID(Me.hWnd)
ids(1).dwTopicId = Me.Control2.HelpContextId
ids(2).dwControlId = 0
ids(2).dwTopicId = 0
End Sub
ข้อมูลอ้างอิงคุณสมบัติKeywords: | kbprogramming kbhelpfile kbhelp kbhowtomaster kbmt KB828419 KbMtth |
กลับไปด้านบน