¼òµ¥µÄVB¶Ô»°¿òÎÊÌâ
ÕâµÀÌâµÄÒªÇóÊÇÕâÑùµÄ£ºÓÐÈý¸ö°´Å¥¿Ø¼þ£¬ÆäÖÐcomman1ÊÇÊäÈë°´Å¥£¬command3ÊǵǼ°´Å¥£¬command2ÊÇÍ˳ö°´Å¥£¬»¹ÓÐÒ»¸öÁбí¿òlist1½ÓÊÕcommand1¼´ÊäÈë°´Å¥ÊäÈëµÄÐÅÏ¢£¬³ÌÐòÔËÐеÄʱºòcommand1°´Å¥ÊDz»ÄÜʹÓõģ¬Ö»Óе±command3µÇ¼°´Å¥ÔÚÈý´ÎÒÔÄÚÊäÈëÕýÈ·ÃÜÂ룬command1²Å±äΪ¿ÉÓã¬ÎÒÏëÒª³ÌÐòÔËÐеÄʱºò£¬µÇ¼°´Å¥Ö»ÄÜʵÏÖÊäÈëÈý´ÎÃÜÂ룬³¬¹ýÈý´Î¾Í×Ô¶¯Í˳ö³ÌÐò£¬ÎÒдÁËһϳÌÐò£¬·¢ÏÖ£¬ÔËÐеÄʱºò£¬Ö»Òª²»ÒªÊäÈëÃÜÂ볬¹ýÈý´Î£¬ÖØÐµã»÷µÇ¼°´Å¥µÄʱºò£¬ÊäÈëÃÜÂëµÄ´ÎÊýÓÖÖØÐ¼ÆËãÁË£¬ÕâÑùµÄ»°£¬Ö»ÒªÃ¿Ò»´Îµã»÷µÇ¼°´Å¥µÄʱºòÊäÈëÃÜÂë´ÎÊý²»Òª³¬¹ýÈý´Î£¬ÄÇô¾Í¿ÉÒÔÎÞÏÞÖÆµÄÊäÈëÃÜÂ룬´ï²»µ½Ò»¹²Ö»ÄÜÊäÈëÈý´ÎµÄÄ¿µÄ£¬Çë´ó¼Ò°ïæ¿´¿´£¬ÒªÔõô²ÅÄÜʵÏÖ£¬²»¹ÜµÇ¼°´Å¥µã»÷Á˶àÉٴΣ¬¼ÆËãÊäÈëÃÜÂë´ÎÊýµÄ±äÁ¿countt²»»áÖØÐ¼ÆË㣬¶øÊÇ»áÒ»Ö±ÀÛ¼ÆÏÂÈ¥µÄ¡£
ÏÂÃæÊÇÎÒдµÄ´úÂ룺
Private Sub Command1_Click()
a = InputBox("ÇëÊäÈëѧÉúÃû³Æ,ÊäÈë¶Ô»°¿ò")
Do While a <> ""
List1.AddItem a
a = InputBox("ÇëÊäÈëѧÉúÃû³Æ,ÊäÈë¶Ô»°¿ò")
Loop
End Sub
Private Sub Command2_Click()
a = MsgBox("ÕæµÄÒªÍ˳ö³ÌÐòÂð£¿", 4 + 48 + 256, "Í˳ö¶Ô»°¿ò")
If a = 6 Then
End
End If
End Sub
Private Sub Command3_Click()
a = InputBox("ÇëÊäÈëÃÜÂë,ÃÜÂëÊäÈë¿ò")
Countt = 1
Do While a <> "123456"
b = MsgBox("ÄãÊäÈëµÄÃÜÂë²»ÕýÈ·", 5 + 16 + 256, "ÃÜÂëºË¶Ô¿ò")
If b = 4 Then
a = InputBox("ÇëÊäÈëÃÜÂë,ÃÜÂëÊä
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......
ÎÒÓÃC#дÁËÒ»¸öCOM¡£
ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£
ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿
VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£
лл¸ßÊÖÖ¸µã¡£
......