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

vbµÄÎÊÌâ

ÔÚvbÀï¿ÉÒÔ»­Í¼Âð£¿ÎÒÒª»­Ò»¸öÎå½ÇÐǶøÇÒÒªÇóÌî³ä²»Í¬µÄÑÕÉ«
Êó±êÔÚÄǸö¶¥µãÄÄÀï¾Í»á³öÏÖ¡®ÕâÊǵڼ¸¸ö¶¥µã¡¯µÄС·½¿ò
Ë­ÄÜ°ï°ïÎÒ£¿



ÔõôûÈË°ïÎÒ°¥Ñ½£¿
°¥.........

ÄãÃÇÈËÄØ£¿


µÈ´óºú×ÓÀ´¡£

°ï¶¥

ÎÒʲôµÈËûÀ´°¡£¿
ÄãÒ²¿ÉÒÔ°ïÎÒ°¡

ÄãС×Ó,Ïë°ÑÎÒÀÛËÀ°¡

ÒýÓÃ
µÈ´óºú×ÓÀ´¡£


ºÇºÇ  ´óºú×Ó´ó¸ç Äã¾Í°ï°ïÎÒ°Ñ


Ä㻹ÊÇÓÃPPT×ö°É,°ÑÎÒÀÛËÀÒ²½Ì²»»áµÄ.

ÒýÓÃ
ºÇºÇ  ´óºú×Ó´ó¸ç Äã¾Í°ï°ïÎÒ°Ñ



²»Ðа¡  ±ØÐëÊÇÓÃvb×÷
Private Sub Command1_Click()
Form1.Scale (-100, 100)-(100, -100)
Dim i As Integer, p(4, 1) As Integer
For i = 0 To 4
p(i, 0) = 80 * Cos((90 + i * 144) / 180 * 3.141592653)
p(i, 1) = 80 * Sin((90 + i * 144) / 180 * 3.141592653)
Next
Form1.CurrentX = p(4, 0)
Form1.CurrentY = p(4, 1)
For i = 0 To 4
Form1.Line -(p(i, 0), p(i, 1))
Next
End Sub
Îå½ÇÐÇ»­ºÃÁË ¿ÉÊÇÎÒ²»»áÌî³äÑÕɫŶ  ´óºú×Ó¸ç¸çÄã°ï°ïÎÒ°Ñ


ÕâÀïÓÐש¼ÒÄã²»ÎÊ
°³ÊǼðÂܲ·°×²ËµÄ

ÒýÓÃ
²»Ðа¡  ±ØÐëÊÇÓÃvb×÷
Private Sub Command1_Click()
Form1.Scale (-100, 100)-(100, -100)
Dim i As Integer, p(4, 1) As Integer
For i = 0 To 4
p(i, 0) = 80 * Cos((90


Ïà¹ØÎÊ´ð£º

vbÈçºÎµ÷ÓÃIllustrator£¨´ËÇ°IllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃÅ°¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......

ÊìϤVBµÄ½øÀ´£¬ÓÐÏîÄ¿


ÓÐûÓк¼ÖݵÄÅóÓÑ£¬ÊìϤVBµÄ£¬ÓÐÐËȤ×öµÄ»°ÁôÏÂÁªÏµ·½Ê½
VB6 OR VB.NET?
¿Éϧ²»ÔÚº¼ÖÝ,遠³Ì¿É·ñ?

ÐǪ̈ÁªÏµ·½Ê½ÄØ

ÎÒÒ²ÁªÏµÒ»Ï£¬²»¹ýÔÚÄþ²¨

¿ÉϧÎÒÒ²²»ÔÚº¼ÖÝ

±±¾©µÄÐв»£¿

ÎÒÔÚËÕÖÝ£¬ ......

ÔõôÓÃVBдһ¸ö¿ÉÒԸıäÒ»¸öÎı¾µÄÄÚÈݵijÌÐò

±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ