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

ÇóÒ»¸öÍêÕûµÄVB³ÌÐò.ÒªÇóÈçÏÂ

ÓÃVB±àдµÄ³ÌÐò£ºÒªÇó£¬Ò»¸öÃûΪformµÄ´°ÌåÉÏ»­Á½¸öÃüÁî°´Å¥£¬±àдÊʵ±µÄʼþ¹ý³Ì£¬ÔËÐкó£¬Ò»¸ö°´Å¥ÏÔʾ£¬ÁíÒ»¸ö°´Å¥Òþ²Ø£»µã»÷ÏÔʾµÄ°´Å¥£¬´Ë°´Å¥Òþ²Ø£¬ÁíÒ»¸öÏÔʾ£¬Í¬Ñùµã»÷Õâ¸öÏÔʾµÄ°´Å¥£¬Õâ¸ö°´Å¥Òþ²Ø£¬ÁíÒ»¸öÏÔʾ£¡

ÒªÍêÕûµÄ´úÂ룬лл£¡
·ÅÈý¸ö°´Å¥£¬µÚÈý¸ö¼Ç´óµã¡£
VB code:

Private Sub Command1_Click()
Command1.Visible = False: Command2.Visible = True: Command3.Caption = "µÚÒ»¸ö°´Å¥Òþ²ØÁË£¬µÚ¶þ¸öÏÔʾÁË"
End Sub

Private Sub Command2_Click()
Command1.Visible = True: Command2.Visible = False: Command3.Caption = "µÚ¶þ¸ö°´Å¥Òþ²ØÁË£¬µÚÒ»¸öÏÔʾÁË"
End Sub

Private Sub Command3_Click()
Command1.Visible = True: Command2.Visible = True: Command3.Caption = "Á½¸ö°´Å¥¶¼ÏÔʾÁË"
End Sub

Private Sub Form_Load()
Command1.Caption = "ÎÒÏÔʾÁË": Command2.Caption = "ÎÒÏÔʾÁË": Command3.Caption = "Á½¸ö¶¼ÏÔʾÁË£¡"
End Sub




VB code:

Private Sub Command1_Click()
Form1.Command2.Visible = True: Form1.Command1.Visible = False
End Sub

Private Sub Command2_Click()
Form1.Command1.Visible = True: Form1.Command2.Visible = False
End Sub

Private Sub Form_Load()
Form1.Command1.Caption = "ÏÔʾ°´Å¥2"
Form1.Command2.Caption = "ÏÔʾ°´Å¥1&quo


Ïà¹ØÎÊ´ð£º

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

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

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

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

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