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
×÷ÈÝÆ÷ÁË.
ѧϰ
{{-
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÎÒµçÄÔ(ÆÁÄ»±È½Ï´ó)Éè¼ÆÒ»¸ö½çÃæ,µ«ÊÇÔÚÆÁÄ»±È½ÏСµÄµçÄÔÉϲâÊÔʱ,·¢ÏÖ°´Å¥²»»áËæ×ÅÆÁÄ»´óС¶ø×Ô¶¯±ä´óС.
ÒªÔõôÉè?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB cod ......
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄÔÉϵÄʱ¼äÏÔʾ²»ÕýÈ· ÄÇÆñ²»ÊÇ»ñµÃµÄʱ¼äÒ²ÊDz»ÕýÈ·µÄ
Ôõô»ñµÃÕýÈ·µÄʱ¼ä
Á¬Íø£¬´Ó±ðµÄµØ·½»ñµÃ
ÒýÓÃ
ÓÃVBÖеÄTimer¿Ø¼þ ¿ÉÒÔ»ñµÃʱ¼ä
µ«ÊÇÈç¹ûµçÄ ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......