Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......

Ö»»áVB£¬ÏÖÔÚÏëÖØÐÂѧÃÅÓïÑÔ - VB / ·Ç¼¼ÊõÀà

Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ

vb.net

VC++

ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......

VB µ÷Óà vc ±àдµÄdll - C/C++ / C++ ÓïÑÔ

ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ