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 ѧϰ {{-
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£ ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ, È»ºó¾ÍÖ±½ÓÓúÃÁË. ²»¹ý,Èç ......
Open App.Path & "\tu\hb.bmp" For Binary As #100 ÓÃopenÓï¾ä´ò¿ªÎļþ,ÎÒÏëÓÃifÓï¾äÅжÏÕâ¸öÎļþÊÇ·ñ´ò¿ª,¾ÍÊÇ˵Èç¹ûû´ò¿ª,¾Í´ò¿ª,ÇëÎʸ÷λÅóÓÑÔõôд? ÊÇ·ñ´ò¿ªÊÇÖ¸ÊÇ·ñÒѾÓû±Ê´ò¿ªÁËô?»¹Ê ......
Private Sub DataList1_Click() If DataList1.Text = "" Then Lbl_EmpId = "" Lbl_EmpName = "" Lbl_Birth = "" Lbl_Sex = "" Lbl_Political_ ......