Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 iniÎļþдÈë ¶ÁÈ¡ - VB / »ù´¡Àà

¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

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

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

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

VB¶à¹¤³ÌÖ®¼äÈçºÎ¹²ÏíÊý¾Ý¼°»¥Ïàµ÷ÓÃ?

RT
Óñ¾µØÎļþ£¬¿ÉÒÔÖ±½ÓÓÃÎļþµÄ¼ÓËø¹¦ÄÜʵÏÖ£º¶ÀÕ¼¶Áд¡¢Ò»ÈËд¶àÈ˶Á¡¢¶Áȡʱ²»ÔÊÐí¸ü¸ÄµÈÒªÇó¡£

Êý¾Ý¿â

1¡¢dde¹¤³Ì http://blog.csdn.net/chinaboyzyq/archive/2009/08/04/4406628.aspx
2¡¢²ÉÓÃÊý¾Ý

......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ