ÓÐÄÍÐĵĸßÊÖÃǽøÀ´ Ö¸µ¼Ò»ÏÂvbÈçºÎµã»÷°´Å¥Ôö¼Ó×é¼þ
¾ÍÊÇÒ»µã»÷°´Å¥ ¾ÍÉú³ÉÒ»¸ötextboxµÄ¿Ø¼þ
Á½¸öcommandµÄ¿Ø¼þ
È»ºótextboxÔÚÀë´°¿Ú¶¥²¿µÄµØ·½ Á½¸öcommand²¢ÅÅÔÚtextboxµÄÓÒÃæ
Èç¹ûÔÙµã»÷´Î°´Å¥ ¾ÍÔÙÉú³ÉºÍÉÏÃæÒ»ÑùµÄÈý¸ö¿Ø¼þ
Ö»²»¹ýÕâÈý¸ö¿Ø¼þÔÚµÚÒ»´ÎµÄÄÇÈý¸ö¿Ø¼þµÄÏ·½
×îºÃ¸ø³öʵÀý ÅÔ±ßÓÐ×¢ÊÍ
ÎұϾ¹ÊÇ»¹ÊǸö³õѧµÄ²ËÄñ
µÚ¶þ´ÎÌí¼ÓÓÉÄã×Ô¼ºÍê³É,µÀÀíÒ»Ñù.
·¹ý.....
Ï£Íû¶ÔÄãÓÐËù°ïÖú
Private Sub cmdAddTxt_Click()
Dim n As Integer '¶¨ÒåÒ»¸ö±äÁ¿
n = Text1.UBound + 1 'ʹÓÿؼþÊý×飬½«ÉϽçÔö¼Ó1¸ö
Load Text1(n) '×°ÔØ¿Ø¼þ
Text1(n).Left = Text1(n - 1).Left 'ÉèÖÿؼþµÄλÖÃ
Text1(n).Top = Text1(n - 1).Top + Text1(n - 1).Height * 1.1
Text1(n).Visible = True 'ÉèÖÿؼþ¿É¼û
Text1(n).Text = n 'ÉèÖÃÄÚÈÝΪµÚ¼¸¸ö£¬´ËÐÐÓÃÓÚÇø±ðÆäËü¿Ø¼þ¶øÐ´£¬ÎÞÆäËüº¬Òå
End Sub
²»ÖªµÀΪʲôÉÏÒ»¸öÌû×ÓûÓдúÂ룿£¡²»ºÃÒâ˼ÁË£¡
±ØÐèÒªÏÈÅжϴ˿ؼþÊÇ·ñ²»´æÔÚ²ÅÄÜÌí¼Ó.
#2Õý½â
ѧϰÖÐ
·¹ý¡£¡£¡£
·¹ý£¡
VB½»Á÷Ⱥ159016553£¬»¶Ó´ó¼Ò¼ÓÈë~~~~~~
ÕæÊÇÌ«¸ÐлÁË
¾¹È»ÓÐÕâÑùÓÐÄÍÐÔµÄÈË
¸Ð¶¯ing
Set NewText = Controls.Add("VB.TextBox", "txtNew", Me)
NewText.Move 1000, 600, 2500, 1000
aButton.Move NewText.Left, NewText.Top + NewText.Height + 100,
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......