vbѧϰ7ÌìºóÓöµ½µÄÎÊÌâ
ÎÒÀûÓù¤×÷ÒµÓàʱ¼äѧÁ˵ãVB£¬¾ÍѧÁËÒ»¸öÐÇÆÚ£¬Ïë×ö¸ö³ÌÐò£¬½á¹ûµ÷ÁË2¸öСʱҲûµ÷³öÀ´£¬Çë¸ßÊÖ¸øÎÒÖ¸µãÏÂÎҵijÌÐòΪʲôÓм¸¸ö²»ÄÜʵÏÖ£¬¸ÃÔõôÐ޸ģ¿
ÓÉÓÚÎÒûʲô±à³Ì»ù´¡£¬¿ÉÄܳÌÐòÖÐÓкܶàÔÔòÐÔ´íÎó£¬Çë²»Òª³°Ð¦ÎÒ
ÎÒµÄÎÊÌâÓúìɫעÊͱêʾ³öÀ´ÁË
1.¼Ç¼´òÖеÄÊý¾ÝΪʲôÏÔʾ×ܲ¿ÕýÈ·
2.¼Ç¼δ´òÖеÄÊý¾ÝΪʲô×ÜÏßÊDz»ÕýÈ·
3.ÎÒÍ˳öµÄʱºò£¬ÔõôÄÜÕæÕýÍ˳ö
4.»÷ÖÐ×Ö»á³öÏÖ±¬Õ¨Í¼Æ¬µÄ£¬ÄÇÎÒkeyupµÄʱºòÏûʧ£¬¸ÃÔõô×ö£¿
³ÌÐò´úÂëÈçÏ£º
Private Sub Form_Load()
Dim j As Integer 'Ñ»·Í³¼ÆLabel3
Dim keychange As String '¶¨ÒåËæ¼´³öÏÖµÄ×Ö
Record = 0 '¼Ç¼´òÖеÄ×Ö
missword = 0 '¼Ç¼δ´òÖеÄ×Ö
Image1.Visible = False
For j = 0 To Label3.Count - 1
Label3(j).Top = 0 - 600 * Rnd 'ÒÀ´ÎÉèÖÃÿ¸ö×ֵĸ߶È
Label3(j).Left = 4800 * Rnd 'ÒÀ´ÎÉèÖÃÿ¸ö×ÖµÄλÖÃ
If Form2.Option1.Value Then
keychange = Chr((97 - 65 + 1) * Rnd + 65) 'Ëæ¼´³öÏÖ×ÖĸµÄAssciÂë,Ð
Ïà¹ØÎÊ´ð£º
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
ÈçÌâ¡£
²»ÓÃAPIÒ²ÄÜʵÏÖ:
http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html
ʹÓÃAPIÊä³öÎı¾´æÔÚÏÔʾˢÐÂÎÊÌâ,ÐèÔÚReSize»òPaintʼþÖмÓÈë´úÂë.
http://download.csdn.net/ ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½
Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£
mark
pls learn from ba ......