VB popPupMenu²»ÏÔʾµÄÎÊÌâ
ShouXuFeiJiaoFeiMingXifrm´°ÌåÉÏÖ»ÓÐÒ»¸ö²Ëµ¥±êÌâÊÇmenu£¬Ãû³ÆÊÇmenu1£¬²Ëµ¥ÏÂÒ»¼¶Ö»ÓÐÒ»¸ö²Ëµ¥Ïî¡°ÕÛ·Ñ¡±£¬ÏëÓõ¯³öʽ²Ëµ¥µÄÐÎʽÔËÐв¢²»ÏÔʾµ¯³öʽ²Ëµ¥£¬Õâ¸öΪʲô°¡£¬Çë¸ßÊÖÖ¸µã¡£¡£Ð»Ð»¡£
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then 'ʶ±ðÊDz»Êǰ´ÏÂÓÒ¼ü£¬ÊÇÔòµ¯³ö¿ì½Ý²Ëµ¥
PopupMenu ShouXuFeiJiaoFeiMingXifrm.menu1
End If
End Sub
ÄãµÄShouXuFeiJiaoFeiMingXifrm ÊDz»ÊÇÒ²ÊÇÓÃÓÒ¼üÆô¶¯µÄ£¿
´úÂëûÎÊÌâ.ÄãÊDz»ÊÇÔÚMSFlexGrid1Éϵã»÷µÄÓÒ¼ü?
ÎÒµÄShouXuFeiJiaoFeiMingXifrm²»ÊÇÓÃÓÒ¼üÆô¶¯µÄ°¡£¬ÊÇÓð´Å¥µ¯³öµÄ£¬¶øÇÒÎÒȷʵÊÇÔÚMSFlexGrid1Éϵã»÷µÄÊó±êÓÒ¼ü£¬µ½µ×Ϊʲô°¡¡£ÎÒµÄÓÐÒ»¸ö¸¸´°ÌåÓÐÕâÖֲ˵¥£¬¸úÕâ¸öÓйØÏµÂð£¿
ÔÚÎÒÕâÀïÕý³££¬ÎÒÒѾÊÔ¹ýÁË
¡£¡£¡£
ÎÒµÄϰ¹ßÊÇÕâÑù
dim m as menu
set m=ShouXuFeiJiaoFeiMingXifrm.menu1
popupmenu m
Ó¦¸ÃÊÇÓÒ»÷ʼþûµÄÖ´ÐÐ
MDI ¸¸´°ÌåµÄ²Ëµ¥»á×Ô¶¯±»×Ó´°ÌåµÄ²Ëµ¥¸²¸Ç£¬Ò²¾ÍÊǸ¸´°ÌåµÄ²Ëµ¥¸ù±¾Ã»Óд´½¨£¬µ±È»ÎÞ·¨µ¯³öÁË¡£
¸ÄÓÃ×Ó´°ÌåµÄ²Ëµ¥½øÐе¯³ö¡£
ѧϰѧϰ
ÄãÊÇÓÃMDIµÄ£¿
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......