VBʹÓÃActiveX¿Ø¼þʵÀýºÍ²½¾Û
Ä¿µÄÕÆÎÕÒ»¸ö¼òµ¥µÄVB³ÌÐòµÄ½¨Á¢¡¢±à¼¡¢µ÷ÊÔ¡¢ÔËÐкͱ£´æµÄ·½·¨¡£
²Ù×÷²½Öè ¢Å½øÈëVB»·¾³£¬Ð½¨¹¤³Ì¡£·½·¨ÊÇ£ºÈç¹û³öÏ֓н¨¹¤³Ì”¶Ô»°¿ò£¬ÔòÑ¡Ôñ“±ê×¼.EXE”²¢µã»÷[´ò¿ª]°´Å¦£»»òÕßÖ±½Óµã»÷²Ëµ¥[Îļþ]-[н¨¹¤³Ì]¡£¶¼»á³öÏÖÒ»¸öÃûΪ“Form1”µÄд°Ìå¡£
¢Æ´Ó±ê×¼¿Ø¼þ¹¤¾ßÀ¸ÖÐÏò´°Ìå¼ÓÈë±êÇ©(Label1ºÍLabel2)¡¢Á½¸öÃüÁŦ(Command1ºÍCommand2)¡£
¢ÇÓÉÓÚ±ê×¼¿Ø¼þ¹¤¾ß½öÌṩ20¸öÄÚ²¿¿Ø¼þ£¬Êµ¼ÊÉÏvb³ÌÐòÖл¹¿É¼ÓÈëActiveX¿Ø¼þºÍ¿É²åÈë¶ÔÏóµÈ¡£Îª´Ë±¾´ÎʵÑéÇëÊÔÓÃÒÔÏ·½·¨¼ÓÈë“»¬¿é”¿Ø¼þ£¬¼ÓÈëǰ±ØÐëʹÓò˵¥[¹¤³Ì]-[²¿¼þ]£¬È»ºó´Óµ¯³öµÄÁбí¿òÖй´Ñ¡“Microsoft Windows Common Control 6.0 ”²¢µã»÷[È·¶¨]°´Å¦£¬È»ºó¾Í¿ÉÒԴӿؼþ¹¤¾ßÀ¸ÖмÓÈëÒ»¸öÃûΪ“Slider”µÄ»¬¿é¿Ø¼þÁË¡£
¢ÈÉèÖô°ÌåµÄ±³¾°Í¼Ïñ¡¢ÃüÁŦµÄPictureÊôÐÔºÍÁ½¸ö±êÇ©ÉϵÄÎÄ×ÖºÍ×ÖÌåºóµÈÊôÐÔ£º ¿Ø¼þÃû ÊôÐÔºÍÊôÐÔÖµ Form1 Caption=”³õʶVBÊÀ½ç”Picture=” BJtu.bmp” Label1 Caption=”ÐÂÄê¿ìÀÖ” Font Á¥Êé 36 ºÚÉ« Left=400 BackStyle ͸Ã÷ Label2 Caption=”ÐÂÄê¿ìÀÖ” Font Á¥Êé 36 °×É«BackStyle ͸Ã÷ Command1 ½«CaptionÇå³ý Picture=” HANDAR_Left.GIF” Style=1.Graphical Command2 ½«CaptionÇå³ý Picture=” HANDAR_Right.GIF” Style=1.Graphical Slider1 Max=7000 Min=500 LargeChange=50
¢É¸÷¿Ø¼þÊôÐÔÉèÖÃÍê³ÉºóЧ¹ûÈçÏ£º
¢Ê±àдÏìÓ¦¼¸¸öʼþµÄ´úÂ룬ĿµÄÊÇÔËÐÐʱIJ¿ØÖƱêÇ©ÎÄ×ÖµÄ×óÓÒÒÆ¶¯¡£¹²4¸öÒªÏìÓ¦µÄʼþ£º ¢Ù ´°ÌåµÄÔØÈëʼþ(Sub Form_Load):ÔÚ´°Ìå¿Õ°×´¦Ë«»÷Êó±ê×ó¼ü,¼´¿Éµ¯³ö¸ÃʼþµÄ¹ý³Ì´úÂëµÄ¿ò¼Ü,¼´ÓÐ: Private Sub Form_Load() End Sub ÇëÔÚÆäÖÐдÈëÁ½ÌõÓï¾ä(¹¦ÄÜÊÇͨ¹ýÉèÖñêÇ©µÄTopºÍLeftÊôÐÔ,ʹÁ½¸ö±êÇ©ÎÄ×Ö³ÊÁ¢Ìå´íλЧ¹û) Label2.Top = Label1.Top - 50 Label2.Left = Label1.Left - 50 ¢Ú Ë«»÷×óÊÖÖ¸ËùÔڵݴŦCommand1µÄÊó±êµ¥»÷ʼþ(Sub Command1_Click()):Ôڸð´Å¦ÉÏË«»÷Êó±ê,¼´¿Éµ¯³ö¸ÃÏîʼþµÄ¹ý³Ì´úÂëµÄ¿ò¼Ü,¼´ÓÐ: Private Sub Command1_Click() End Sub ÇëÔÚÆäÖÐдÈëÁ½ÌõÓï¾ä,¹¦ÄÜÊÇÈÃÁ½¸ö±êÇ©µÄ×ó±ß½çͬʱ¼õÉÙ50,ʹÆä×óÒÆ. Label1.Move Label1.Left - 50 Label2.Move Label2.Left - 50 ¢Û ÓÃͬÑùÔÚ·½·¨±àдÓÒÊÖÖ¸ËùÔڵݴŦCommand2µÄÊó±êµ¥»÷ʼþ,¼´ÔÚµ¯³öµÄ¹ý³Ì´úÂë¿ò¼ÜÖÐдÈ
Ïà¹ØÎĵµ£º
VB³ÌÐòÆÆ½â
VB ³ÌÐò¼ò½é
¡¡¡¡ÏÖÔÚ²»ÉÙ³ÌÐòÊÇÓà VB дµÄ£¬Äãͨ¹ý·´»ã±à»ò¸ú×Ùµ÷ÊÔʱºÜÈÝÒ×¼ø±ðij¸ö³ÌÐòÊÇ·ñΪ VB ³ÌÐò£¬VB µÄ EXE Îļþ²¢²»ÊÇÕæÕýµÄ±àÒë¿ÉÖ´ÐÐÎļþ£¬ËüÃÇÐèÆä¶¯Ì¬Á´½Ó¿â²ÅÄÜÕý³£ÔËÐУ¬¸÷°æ±¾µÄÁ´½Ó¿âÈçÏ£º
VB3 Á´½Ó¿âΪ vbrun300.dll £»
VB4 Á´½Ó¿âΪ vb40016.dll £» - 16 룬½ÏÉÙ¼û£»
VB4 ......
Õä¹óvbº¯ÊýÁбí
Variant ±äÁ¿µÄÄÚ²¿±íʾ:
_______________________________________________________________
·ûºÅ³£Á¿ Öµ ÄÚ²¿±íʾ ×Ö½ÚÊý
V_EMPTY 0 Empty
V_NULL 1 Null
V_INTEGER 2 Interger 2
V_LONG 3 Long 4
V_SINGLE 4 Single 4
V_DOUBLE 5 Double 8
V_CURRENCY 6 Currency 8
V_DATE 7 Date 8
V_STRI ......
Îå¡¢ CIM´¢´æ¿âºÍCIMÀࣨ1£©
ÉÏÒ»½²ÎÒÃǽéÉÜÁËWMIµÄÌåϵ½á¹¹£¬»¹¼ÇµÃÄÇÕÅÌåϵ½á¹¹Í¼Â𣿼ǵÃÎÒÃÇ˵µ½¹Ø×¢µÄÖØµãÓ¦¸ÃÊÇCIM´¢´æ¿âºÍWMI½Å±¾¶ÔÏó¿â£¬ÎªÊ²Ã´ÎÒÃÇÕâÑùËµÄØ£¿ÒòΪÎÒÃǵijÌÐòÖ±½ÓÊÇÀûÓÃWMI½Å±¾¶ÔÏó¿â½øÐбà³Ì£¬¶øÕâ¸öWMI½Å±¾¶ÔÏó»ñÈ¡»ò²Ù×÷µÄÄÚÈݶ¼ÊÇÀ´×ÔCIM´¢´æ¿â£¨×¢Ò⣺ÎÒÃÇÕâÀï˵µÄCIM´¢´æ ......
1. ASC(X)£¬Chr(X)£º×ª»»×Ö·û×Ö·ûÂë
[¸ñʽ]£º
P=Asc(X) ·µ»Ø×Ö·û´®XµÄµÚÒ»¸ö×Ö·ûµÄ×Ö·ûÂë
P=Chr(X) ·µ»Ø×Ö·ûÂëµÈÓÚXµÄ×Ö·û
[·¶Àý]£º
(1)P=Chr(65)
‘ Êä³ö×Ö·ûA,ÒòΪAµÄASCIIÂëµÈÓÚ65   ......