ÈçºÎ¶¯Ì¬Ê¹ÓÃVB¿ì½Ý¼ü£¿
ÎÒÓиö¹¦ÄÜÐèҪʵÏÖVB.FormÉϵIJ˵¥µÄ¶¯Ì¬Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄÜ£¬ÏÖÓöµ½ÒÔÏÂÒ»¸öÎÊÌâһֱδÄܿ˷þ£¬ÌØÀ´Ïò´óʦÃÇÇó½Ì£º
1¡¢ÎÒÒÑÓеÄFormÉϵIJ˵¥ÊÇÓÃVB×Ô´øµÄMenuEditorÉú³ÉµÄ£¬ÀïÃæµÄÓиö±ðµÄ²Ëµ¥ÊÇÓпì½Ý¼üµÄ£¬ÎÒ×ÓÀ໯ÁË´Ë´°Ìå¡£ÏÖÔÚÊó±êµã»÷´Ë²Ëµ¥µÄʱºò£¬ÎÒ¶¼ÄܸÐÓ¦µ½ÏàÓ¦µÄÏûÏ¢£¨WM_COMMAND£©£¬¿ÉÊÇÎÒÓÿì½Ý¼üÈ¥¼¤»î²Ëµ¥£¬VBIDEÀïµÄ´úÂëÄÜÏàÓ¦£¬µ«ÊÇÎÒ×ÓÀ໯µÄ¹ý³ÌÈ´ÊÕ²»µ½ÏàÓ¦ÏûÏ¢£¬ÇëÎÊÊÇʲôÔÒòÔì³ÉµÄÄØ£¿
Form²Ëµ¥´úÂ룺£¨¿ì½Ý¼üÊÇ£ºCtrl+N)
VB code:
Private Sub mnuFileOpen_Click()
'/* ¿ì½Ý¼ü¼°Êó±êµã»÷¶¼ÄÜÖ´Ðе½
MsgBox "FormMenu Clicked!" & mnuFileOpen.Name
End Sub
×ÓÀ໯´úÂ룺£¨¿ì½Ý¼ü¼¤»î²Ëµ¥Ê±£¬ÏÂÃæ¹ý³Ì²¶×½²»µ½£¬µ«Êǵã»÷ÊÇ¿ÉÒÔ²¶×½µ½µÃ£©
VB code:
Private Function ISubclass_WindowProc(ByVal Hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long, Optional bCancel As Boolean = False) As Long
Dim tWinMessage As MSG
Dim lMenuID As Long
Dim oMenuItem As MenuItem
Select Case iMsg
Case WM_COMMAND
If lParam = 0 Then
lMenuID = LOWORD(wParam)
Set oMenuItem = m_oMenuHelper.FindMenuItemByID(lMenuID)
If Not oMenuItem Is Nothing Then
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
²ËÄñѧVB,¸÷λ´óÏÀÄܰïÖúÎÒô£¬ÎÒµÄQQÊÇ544508194£¬mail. huguyue619@163.com
¿ÒÇë¸÷λ´óÏÀ¼ÓÎÒ£¬Ö¸µãСµÜÒ»¶þ
Çë¾³£¹â¹Ë±¾ÂÛ̳,ÓÐÒÉÄÑÖÚ¶à¸ßÊÖ¶¼»á¾¡Á¦.
¶¯ÊÖʵ¼ùд´úÂë,¾³£¹â¹Ë±¾ÂÛ̳ä¯ÀÀÓëѧϰ.
......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......