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ÖÐµÄ ......
Printer.ScaleMode = 6 6±íʾºÁÃ× Printer.PaperSize = vbPRPSA4 '³õÊ¼×ø±ê x = 1 y = 4 '×î´óµÄÏß¿ð Printer.DrawStyle = 0 Printer.Line (x, y)-(x + 132.5, y) ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ printer.print "dsff" ..... .... Printer.EndDoc ´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
Open App.Path & "\tu\hb.bmp" For Binary As #100 ÓÃopenÓï¾ä´ò¿ªÎļþ,ÎÒÏëÓÃifÓï¾äÅжÏÕâ¸öÎļþÊÇ·ñ´ò¿ª,¾ÍÊÇ˵Èç¹ûû´ò¿ª,¾Í´ò¿ª,ÇëÎʸ÷λÅóÓÑÔõôд? ÊÇ·ñ´ò¿ªÊÇÖ¸ÊÇ·ñÒѾÓû±Ê´ò¿ªÁËô?»¹Ê ......
ÎÒÖªµÀÔÚVBÖе÷ÓÃϵͳµÄ¼ÆËãÆ÷ ¿ÉÒÔÓÃshell ¿ÉÊÇÒªÊÇÒªÇó¸ßµã µ÷Óúó Ö±½Ó¼ÆËã ²¢°Ñ¼ÆËã½á¹ûÏÔʾÔÚÎı¾¿òÀï ±ÈÈç ÔÚµã»÷°´Å¥1 µ÷ÓüÆËãÆ÷ °ÑÖ¸¶¨µÄ¶þ½øÖÆ×ª»»Îª16½øÖÆ ²¢ÏÔʾÔÚ text1 ×ÔÒÑ×öÒ»¸ö¼ÆËãÆ÷~ ......