| ²é¿´: 395 | »Ø¸´: 4 | |||
| µ±Ç°Ö÷ÌâÒѾ´æµµ¡£ | |||
ddwvľ³æ (СÓÐÃûÆø)
»¹Ã»ÏëºÃ^_^
|
[½»Á÷]
¡¾ÇóÖú¡¿ÔÚMapbasicÖÐÔËÐÐchm°ïÖúÎļþ
|
||
|
Çë½Ì¸÷λ,ÈçºÎÄÜʵÏÖÔÚMapbasicÖÐÔËÐÐchm°ïÖúÎļþ,»òµ÷ÓÃÆäËûÓ¦ÓóÌÐòÄØ?¼±~~,ÖØÐ»^_^ [ Last edited by ewigkeit on 2008-4-1 at 21:12 ] |
» ²ÂÄãϲ»¶
355 BÇøµØÖʵ÷¼Á
ÒѾÓÐ1È˻ظ´
½âËøÇàÉÙÄ긺ÔðÈξö²ßµÄ¹Ø¼ü£º»ùÓÚPISA 2022È«ÇòÊý¾ÝµÄSELά¶ÈÑо¿³É¹û·¢±í
ÒѾÓÐ1È˻ظ´
µØÇò»¯Ñ§ÂÛÎÄÈóÉ«/·ÒëÔõôÊÕ·Ñ?
ÒѾÓÐ61È˻ظ´

Ñô¹âÑô¹â
ľ³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 2652.2
- Ìû×Ó: 1114
- ÔÚÏß: 50.2Сʱ
- ³æºÅ: 401658
- ×¢²á: 2007-06-13
- רҵ: ±£ÏÕѧ
2Â¥2008-04-01 18:43:37
ddwv
ľ³æ (СÓÐÃûÆø)
»¹Ã»ÏëºÃ^_^
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 1957.6
- É¢½ð: 92
- Ìû×Ó: 221
- ÔÚÏß: 17Сʱ
- ³æºÅ: 259507
- ×¢²á: 2006-06-11
- ÐÔ±ð: MM
- רҵ: »·¾³¹¤³Ì

3Â¥2008-04-02 10:28:52
DLXXGK
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ½ð±Ò: 9845.6
- É¢½ð: 104
- Ìû×Ó: 2342
- ÔÚÏß: 163.8Сʱ
- ³æºÅ: 250378
- ×¢²á: 2006-05-13
- רҵ: ÇøÓò¿É³ÖÐø·¢Õ¹
|
vbÖе÷ÓÃ.chmÎļþµÄ·½·¨ ¡¡¡¡ ·½·¨Ò»¡¡Ê¹ÓÃF1¼ü£º ¡¡¡¡ ÕâÖÖ·½·¨×î¼òµ¥£¬Ö»ÐèÈçÏ´úÂë¼´¿É£º Private Sub Form_Load() App.HelpFile = app.path & "help.chm" 'µ÷ÓÃÓëÖ÷³ÌÐòͬĿ¼ÏµÄhelp.chm°ïÖúÎļþ£¬°´F1¼üµ÷Óà End Sub ¡¡¡¡ ·½·¨¶þ ʹÓÃSendKeys·½·¨£º Private Sub Form_Load() App.HelpFile = app.path & "help.chm" End Sub private Sub CmdHelp_Click() SendKeys "{F1}" '·¢ËÍ»÷¼üµ½»î¶¯´°¿Ú End Sub ¡¡¡¡ ·½·¨Èý ʹÓÃShellº¯Êý£º private Sub CmdHelp_Click() Shell "hh.exe help.chm", vbNormalFocus 'help.chmΪָ¶¨µÄ°ïÖúÎļþ£¬¿É°üº¬Â·¾¶¡£ End Sub ¡¡¡¡ ·½·¨ËÄ Ê¹ÓÃHtmlHelpº¯Êý£º ¡¡ ÏÈÉùÃ÷ÈçÏÂAPI£º Option Explicit Private Declare Function HtmlHelpA Lib "hhctrl.ocx" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long 'hwndCallerÖ¸¶¨µ÷ÓÃÕߵĴ°¿Ú£¬pszFileÖ¸¶¨Òªµ÷ÓõÄÎļþ£¬uCommandÊÇ·¢Ë͸ø HtmlHelpµÄÃüÁdwDataÊÇuCommandµÄ²ÎÊý¡£ ¡¡¡¡ È»ºóÔÚ¹ý³ÌÖе÷Ó㺠private Sub CmdHelp_Click() dim i as string i = app.path & "help.chm" 'ÓñäÁ¿i¼Ç¼ÓëÖ÷³ÌÐòͬĿ¼ÏµÄhelp.chm°ïÖúÎļþ HtmlHelpA Form1.hWnd, i, 0, 0 End Sub ¡¡¡¡ ·½·¨Îå ʹÓÃShellExecuteº¯Êý£º ¡¡¡¡ ÏÈÉùÃ÷ÈçÏÂAPI£º Option Explicit 'ÉùÃ÷APIº¯ÊýÓÃÓÚÒì²½´ò¿ªÒ»¸öÎĵµ Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_SHOWNORMAL = 1 ¡¡¡¡ È»ºóÔÚ¹ý³ÌÖе÷Ó㺠private Sub CmdHelp_Click() dim a as long Dim b As String b = App.Path & "help.chm" 'ÓñäÁ¿b¼Ç¼ÓëÖ÷³ÌÐòͬĿ¼ÏµÄhelp.chm°ïÖúÎļþ a = ShellExecute (0, "open", b, "", "", SW_SHOWNORMAL) End Sub ÍøÉϲéѯµÄ£¬Ã»Óо¹ý²âÊÔ£¬ÓÉÓÚmapbasicÓëvbµ÷Ó÷½Ê½ÓÐЩÏàͬ£¬×÷Ϊ²Î¿¼£¡ |
4Â¥2008-04-02 14:33:39
ddwv
ľ³æ (СÓÐÃûÆø)
»¹Ã»ÏëºÃ^_^
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 1957.6
- É¢½ð: 92
- Ìû×Ó: 221
- ÔÚÏß: 17Сʱ
- ³æºÅ: 259507
- ×¢²á: 2006-06-11
- ÐÔ±ð: MM
- רҵ: »·¾³¹¤³Ì

5Â¥2008-04-03 10:46:48














»Ø¸´´ËÂ¥