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

ÇóÖú£¡£¡vb³ÌÐò

Éè¼ÆÒ»¸öÊó±ê»­Í¼³ÌÐò£¬½çÃæÉè¼Æ£¬´°ÌåÖÐÌí¼ÓÒ»¸öpicturebox¿Ø¼þ£¬Ò»¸öcombobox×éºÏÏÂÀ­¿ò¡¢Ò»¸öͨÓöԻ°¿òÓëÁ½¸öÃüÁî¿ò£¬ÒÔÏÂÊÇÎҵijÌÐò£¬µ«ÊÇÎÒÔËÐеÄʱºò×ÜÊÇÌáʾ±äÁ¿Î´¶¨Ò壬»¹Íû¸÷λ´óÏÀ°ïæָÕýÄÄÀï³öÁËÎÊÌâ

Option Explicit
Dim x0 As Integer, y0 As Integer

Private Sub Combo1_Click()
Picture1.DrawWidth = Val(Combol.Text)
End Sub

Private Sub Command2_Click()
CommomDialog1.ShowColor
Picture1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command3_Click()
Picture1.Cls
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
    Combol.AddItem Str(i + 1), i
Next i
Picture1.AutoRedraw = Ture
Picture1.Cls
Picture1.ForeColor = vbWhite
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If buttom = 1 Then
Picture1.Line (x0, y0)-(X, Y)
End If
x0 = X
y0 = Y
End Sub

ʹÓÃF8

ÎÒ²»ÖªµÀÊdzÌÐò´íÁË»¹ÊÇÓ¦¸Ã¶ÔÊôÐÔÖµ½øÐиÄÕý£¿

µ¥²½µ÷ÊÔ£¬¿´ÄǾä³ö´í

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
    Combol.AddItem Str(i + 1), i
Next i
Picture1.AutoRedraw = Ture
Picture1.Cls
Picture1.ForeColor = vbWhite
End Sub
Õâ¸öÖеÄCombol.AddItem Str(i + 1), i˵ÊÇ䶨Ò壿£¿£¿£¿²»ÖªµÀÔõô¸Ä


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VB Timer¿Ø¼þ

ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ

Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ

ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......

VB¹ý³Ì¿ØÖÆ

Ôõôµã»÷form2Éϵİ´Å¥ ¿ÉÒÔ½áÊøform1ÉÏÕýÔÚ½øÐеÄÑ­»· 

form1ÀïÃæÌí¼ÓÒ»¸ö±äÁ¿£º
Public bEnd As Boolean

Ñ­»·´úÂëÌí¼Ó£º
bEnd = False
Do
    ...
    If ......

VBÖÐÁí´æÎª¶Ô»°¿òµÄʹÓÃ

ÎÒÒªµ¼Èëµ¼³öÊý¾Ý¿âÎļþ£¬ÔÚµ½´¦µÄʱºòʹÓÃÁí´æÎª¶Ô»°¿ò£¬¾ßÌå´úÂëÊÇÈçºÎʵÏֵģ¿ÎÒÖ±½ÓÓÃcommondialog1.showsaveÖ®ºóµãÁí´æÎªÃ»ÓÐÏìÓ¦£¬ÊDz»ÊÇÒªÌí¼Óʲô´úÂ룿¼±£¡
Áí´æÎªÊ²Ã´¸ñʽµÄÎļþÄãÐèÒª¸æËß´ó¼Ò,дµ½²»Í¬À ......

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ