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Ê
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡ û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡ À´½Óµã·Ö ......
µÚÒ»´Î½Ó´¥CrystalReport ¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó. ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл! ¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ± ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ vb.net ,C# ,Java, »¹ÊÇVC++? ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿ C#£¬winform»òwebform¶¼¿ÉÒÔ vb.net VC++ ÒýÓà VC++ Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......