VBÇóÖúÖ¸µã¡£Íò·Ö¸Ðл£¡ combox ·µ»ØÖµ
Ò»¸ö´°Ìå Á½¸ö¿Ø¼þ combox1 ºÍ Image1 ͨ¹ý·µ»ØcomboxµÄÖµ ÅÐ¶Ï ²¢ÏÔʾÕýÈ·µÄ imagel ͼƬ IF combox1.text = "1" set Image1.Picture = LoadPicture ("D:\1.bmp") ͼƬ¿Ø¼þÏÔʾµÄΪ¿Õ Çë¸ßÊÖÖ¸µã Íò·Ö¸Ðл ¡£
imagelist¿Ø¼þ¡£ÏȼӺ㬺óµ÷Óá£ÒýÓà һ¸ö´°Ìå Á½¸ö¿Ø¼þ combox1 ºÍ Image1 ͨ¹ý·µ»ØcomboxµÄÖµ ÅÐ¶Ï ²¢ÏÔʾÕýÈ·µÄ imagel ͼƬ IF combox1.text = "1" set Image1.Picture = LoadPicture ("D:\1.bmp") ͼƬ¿Ø¼þÏÔʾµÄΪ¿Õ Çë¸ßÊÖÖ¸µã Íò·Ö¸Ðл ¡£ °Ñcombo1µÄʼþÑ¡ÔñΪClickÈ»ºóÊäÈë´úÂ룺 IF combo1.text = "1" set Image1.Picture = LoadPicture ("D:\1.bmp") Ñø³ÉʹÓÃÏà¶Ô·¾¶µÄϰ¹ß ²»ÒªÊ¹Óþø¶Ô·¾¶ ÏÂÃæ´úÂëÊǾÙÀý: ÔÚÄãµÄ³ÌÐò±¾µØÂ·¾¶ÏÂÓÐ6ÕÅͼƬ,Ãû³ÆÎªPintu1.gif Pintu2.gif....Pintu6.gif Option Explicit Dim i&, AppDisk$ Private Sub Form_Load() AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") For i = 1 To 6 Combo1.AddItem CStr(i) Next i End Sub Private Sub Combo1_Click() Image1.Picture = LoadPicture(AppDisk & "Pintu" & Combo1.Text & ".gif") End Sub ÒªÔÚclickÊ
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»Áß´Í½Ì 1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£ Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯ Picture1.Left = -HScroll1.Value + bcW ' ......
µÚÒ»´Î½Ó´¥CrystalReport ¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó. ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл! ¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡ ²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£ Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
RT Óñ¾µØÎļþ£¬¿ÉÒÔÖ±½ÓÓÃÎļþµÄ¼ÓËø¹¦ÄÜʵÏÖ£º¶ÀÕ¼¶Áд¡¢Ò»ÈËд¶àÈ˶Á¡¢¶Áȡʱ²»ÔÊÐí¸ü¸ÄµÈÒªÇó¡£ Êý¾Ý¿â 1¡¢dde¹¤³Ì http://blog.csdn.net/chinaboyzyq/archive/2009/08/04/4406628.aspx 2¡¢²ÉÓÃÊý¾Ý ......