Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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Âë,Ð


Ïà¹ØÎÊ´ð£º

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

VBÈçºÎÓÃWinIO´ò×Ö£¿

ÈçÌâ¡£
²»ÓÃAPIÒ²ÄÜʵÏÖ:
http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html

ʹÓÃAPIÊä³öÎı¾´æÔÚÏÔʾˢÐÂÎÊÌâ,ÐèÔÚReSize»òPaintʼþÖмÓÈë´úÂë.

http://download.csdn.net/ ......

ÓйØvbµÄÎÊÌâ - VB / »ù´¡Àà

Êý¾Ý¿âÃ²ËÆÒѾ­Á¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿

ÎÞÂëÎÞÕæÏ࣡

Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿

Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......

ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡

ÓÐûÓÐFOR VB Ë®¾§±¨±íµÄÊé»òÊǵç×ÓÎĵµ°¡£¿ÓÐÐÅÏ¢µÄÅóÓѸæËßÏ ллÁË
ÎÒҲûÕÒµ½

Èç¹ûÄãÓÐ FOR ÆäËü µÄÎĵµ£¬Ò²¿ÉÒԲο¼°É£¡
¡®µÀÀí¡¯ÊÇÒ»Öµģ¬Ö»ÊÇ¡°±í´ï·½Ê½¡±²»Í¬¶øÒÑ¡£


mark

pls learn from ba ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ