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

ÇóÒ»¸övb³ÌÐò - VB / ·Ç¼¼ÊõÀà

´úÂëÒªÇóÔÚ100ÐжàÒ»µã ÉÔ΢¼òµ¥Ò»µã Äܹ»ÊµÏÖÓÐȤµÄ¹¦ÄÜ ÓеãСÎÊÌâ²»Òª½ô ÖØÒªµÄÊÇÄÜÔËÐÐ ´úÂë¿ÉÒÔ´ò°ü·¢µ½ÓÊÏä 244313749@qq.com
ÕâÖÖÈí¼þÓÐɶÓð¡

ÒÔϵĴúÂë ¸´ÖÆ¡£Õ³Ìù¡£ÔËÐС£¼´¿É
VB code:
Private Type xy
X As Single
Y As Single
End Type
Dim a(100) As xy
Private WithEvents Timer1 As Timer

Private Sub Form_Activate()
v = "Êó±êÔÚ´°¿ÚËæ±ãµã»÷һϣ¬È»ºóÔÙÍ϶¯Êó±ê£¬¾Í³öÏÖЧ¹ûÁ˹þ£¡"
Form1.CurrentX = Screen.Width / 4
Form1.CurrentY = Screen.Height / 2.5
Randomize
For i = 1 To Len(v)
Form1.FontSize = 10 + 15 * Rnd
Form1.ForeColor = &HFFFFFF * Rnd
Print Mid(v, i, 1);
Next i
End Sub

Private Sub Form_Load()
Set Timer1 = Form1.Controls.Add("VB.timer", "t")
Form1.Move 0, 0, Screen.Width, Screen.Height
Timer1.Enabled = False
Timer1.Interval = 10
Form1.BackColor = 0
Form1.AutoRedraw = True
Form1.DrawWidth = 10
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
For i = 1 To 100
a(i).X = X
a(i).Y = a(i - 1).Y
Next i
Timer1.Enabled = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
a(0).X = X
a(0).Y = Y
End Sub

Private Sub Timer1_Timer()
Dim i As Integer, r As Double
Static b As Double
b = b + 1
Cls
For i = 1 To 100
a(i).X = a(i).X + ((a(i - 1).X - a(i).


Ïà¹ØÎÊ´ð£º

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

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

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

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......

VBÊ÷ÐͽṹÎÊÌâ - VB / ¿Ø¼þ

ÕÒÁ˺ܾÃÕâ¶«Î÷ÁË,  
ÓÃtreeview²»ÄÜÂú×ãÒªÇó
ÏÖÔÚÏë×öµÄÊÇ£º½çÃæÒÔÊ÷ÐÎÕ¹ÏÖ£¬Äܲ»ÄÜÕ¹¿ªÊÕ»ØÎÞËùν
  ½Úµã¶¼¿ÉÒÔ°´Õչ涨½øÐÐÌíɾ
  ÿ¸ö½ÚµãºóÃæ¶¼¿ÉÄÜ»á³öÏÖ Îı¾ ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ