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

vbµÄpicture¿Ø¼þµÄÐ¶ÔØ

ÓÃvbµÄpicture¿Ø¼þ¿ÉÒÔ¼ÓÔØpicture¿Ø¼þ,ÀýÈç
Set Picture1.Container = Picture3
ÕâÑù¾Í°ÑPicture1¼ÓÔØµ½ÁËPicture3ÉÏ,ÄÇôÔõô´ÓPicture3Ð¶ÔØµôPicture1ÄØ?
Çë¸÷λÅóÓѰïæ!лл!!
×öÁËÒ»¸öÊÔÑé,½«Picture1»¹Ô­µ½Ô­À´µÄÈÝÆ÷¾Í¿ÉÒÔÁË
VB code:
Option Explicit

Private Sub Command1_Click()
Set Picture1.Container = Picture3
End Sub

Private Sub Command2_Click()
Set Picture1.Container = Form1
End Sub

Private Sub Form_Load()
Picture1.Picture = LoadPicture("E:\½ØÍ¼\1.JPG")
End Sub


VB code:
Private Sub Command1_Click()
Set Picture1.Container = Picture3
End Sub

Private Sub Command2_Click()
Picture1.Left = -1 * Picture1.Width
End Sub




ÉÏÃæµÄ´úÂë²¢Ã»ÕæÕýÒÆ×ß,Ö»ÊÇ¿´²»µ½ÁË, Set Picture1.Container = Form1
ÊÇÒÆ×ßÁË,µ«Picture1Ã»Ð¶ÔØµô.Ö»ÊDz»ÔÙÒÔPicture3
×÷ÈÝÆ÷ÁË.

ÒýÓÃ
×öÁËÒ»¸öÊÔÑé,½«Picture1»¹Ô­µ½Ô­À´µÄÈÝÆ÷¾Í¿ÉÒÔÁË
VB codeOptionExplicitPrivateSub Command1_Click()Set Picture1.Container= Picture3End SubPrivateSub Command2_Click()Set Picture1.Container= Form1End SubPrivateSub Form_Load()
    Picture1.Picture=LoadPicture("E:\½ØÍ¼\1.JPG")End Sub


ѧϰ
{{-


Ïà¹ØÎÊ´ð£º

VB´°ÌåÎÊÌâ

ÎÒÔÚÎÒµçÄÔ(ÆÁÄ»±È½Ï´ó)Éè¼ÆÒ»¸ö½çÃæ,µ«ÊÇÔÚÆÁÄ»±È½ÏСµÄµçÄÔÉϲâÊÔʱ,·¢ÏÖ°´Å¥²»»áËæ×ÅÆÁÄ»´óС¶ø×Ô¶¯±ä´óС.

ÒªÔõôÉè?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6


VB cod ......

VB Timer¿Ø¼þ

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

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

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

VB¹ý³Ì¿ØÖÆ

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

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

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

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

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

¹ØÓÚVBÖеÄMDI×Ó´°Ìå²»ÄÜÒÔģʽ´°ÌåÏÔʾ

Private Sub cmdModify_Click()
    Dim iRet As Integer
    If dltUser.Text = "" Then
        MsgBox "ÇëÑ¡ÔñÒªÐ޸ĵÄÓû§£¡", vbOKOnly ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ