ÇóÒ»¸öÍêÕûµÄ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µÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......