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

VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð

VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖظ´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´úÂ빫Ó᣸öÀÁ¢Ä£¿é¼´ÊDZê׼ģ¿é¡£´ËÍ⻹¿ÉÒÔ½¨Á¢°üº¬¹²Ïí´úÂëÓëÊý¾ÝµÄÀàÄ£¿é¡£
¡¡¡¡Ã¿¸ö±ê׼ģ¿é¡¢ÀàÄ£¿éºÍ´°ÌåÄ£¿é¿É°üº¬£º
¡¡¡¡ÉùÃ÷¡£ ¿É½«³£Êý¡¢ÀàÐÍ¡¢±äÁ¿ºÍ¶¯Ì¬Á´½Ó¿â£¨DLL£©¹ý³ÌµÄÉùÃ÷·ÅÔÚ´°Ìå¡¢Àà»ò±ê׼ģ¿éµÄÉùÃ÷²¿·Ö¡£Ã¿¸öÄ£¿éÖ»ÓÐÒ»¸öÉùÃ÷²¿·Ö
¡¡¡¡¹ý³Ì¡£Ã¿¸öÄ£¿é¿ÉÓжà¸ö¹ý³Ì£¬¹ý³ÌÊÇ»®·ÖVB´úÂëµÄ×îСµ¥Ôª£¬Ã¿¸ö¹ý³ÌÊÇÒ»¸ö¿ÉÖ´ÐеĴúÂëƬ¶Î¡£VBÖÐÖ÷ÒªÓÐ×Ó¹ý³Ì¡¢º¯Êý¹ý³Ì»òÕßÊôÐÔ¹ý³ÌµÈ
¡¡¡¡¸÷ÖÖÄ£¿éÀàÐÍ
¡¡¡¡1.´°ÌåÄ£¿é
¡¡¡¡ÓÉÓÚVBÊÇÃæÏò¶ÔÏóµÄÓ¦ÓóÌÐò¿ª·¢¹¤¾ß£¬ËùÒÔÓ¦ÓóÌÐòµÄ´úÂë½á¹¹¾ÍÊǸóÌÐòÔÚÆÁÄ»ÉϱíʾµÄ¶ÔӦģÐÍ¡£¸ù¾Ý¶¨Ò壬¶ÔÏó°üº¬Êý¾ÝºÍ´úÂë¡£Ó¦ÓóÌÐòÖеÄÿ¸ö´°Ì嶼ÓÐÒ»¸öÏà¶ÔÓ¦µÄ´°ÌåÄ£¿é£¨ÎļþÀ©Õ¹ÃûΪ.frm£©
¡¡¡¡´°ÌåÄ£¿éÊÇVBÓ¦ÓóÌÐòµÄ»ù´¡¡£´°ÌåÄ£¿é¿ÉÒÔ°üº¬´¦ÀíʼþµÄ¹ý³Ì¡¢Í¨Óùý³ÌÒÔ¼°±äÁ¿¡¢³£Êý¡¢×Ô¶¨ÒåÀàÐͺÍÍⲿ¹ý³ÌµÄ´°Ì弶ÉùÃ÷¡£Ð´Èë´°ÌåÄ£¿éµÄ´úÂëÊǸô°ÌåËùÊôµÄ¾ßÌåÓ¦ÓóÌÐòרÓõģ»Ò²¿ÉÒÔÒýÓøóÌÐòÄÚµÄÆäËü´°ÌåºÍ¶ÔÏó
¡¡¡¡Ã¿¸ö´°ÌåÄ£¿é¶¼°üº¬Ê¼þ¹ý³Ì£¬ÔÚʼþ¹ý³ÌÖÐÓÐΪÏìÓ¦¸Ãʼþ¶øÖ´ÐеijÌÐò¶Î¡£´°Ìå¿É°üº¬¿Ø¼þ¡£ÔÚ´°ÌåÄ£¿éÖУ¬¶Ô´°ÌåÉϵÄÿ¸ö¿Ø¼þ¶¼ÓÐÒ»¸ö¶ÔÓ¦µÄʼþ¹ý³Ì¼¯¡£³ýÁËʼþ¹ý³Ì£¬´°ÌåÄ£¿é»¹¿É°üº¬Í¨Óùý³Ì£¬Ëü¶ÔÀ´×Ըô°ÌåÖÐÈκÎʼþ¹ý³ÌµÄµ÷Óö¼×÷³öÏìÓ¦¡£
¡¡¡¡2.±ê׼ģ¿é
¡¡¡¡±ê׼ģ¿éÊdzÌÐòÖеÄÒ»¸ö¶ÀÁ¢ÈÝÆ÷£¬°üº¬È«¾Ö±äÁ¿¡¢Function(º¯Êý)¹ý³ÌºÍSub¹ý³Ì£¨×Ó¹ý³Ì£©¡£
¡¡¡¡¿É½«ÄÇЩÓëÌض¨´°Ìå»ò¿Ø¼þÎ޹صĴúÂë·ÅÈë±ê׼ģ¿éÖС£±ê׼ģ¿éÖаüº¬Ó¦ÓóÌÐòÄÚµÄÔÊÐíÆäËüÄ£¿é·ÃÎʵĹý³ÌºÍÉùÃ÷¡£ËüÃÇ¿ÉÒÔ°üº¬±äÁ¿¡¢³£Êý¡¢ÀàÐÍ¡¢Íⲿ¹ý³ÌºÍÈ«¾ÖÉùÃ÷»òÄ£¿é¼¶ÉùÃ÷¡£Ð´Èë±ê׼ģ¿éµÄ´úÂë²»±Ø¹Ì¶¨ÔÚÌض¨µÄÓ¦ÓóÌÐòÉÏ£»
¡¡¡¡£¨1£©Ê¹Óñê׼ģ¿é
¡¡¡¡ÔÚ±àд³ÌÐòʱ£¬ºÜ¿ÉÄÜ»áÓöµ½Ò»Ð©Ê¹ÓÃÏàͬ±äÁ¿ºÍÀý³ÌµÄ´°ÌåºÍʼþ¹ý³Ì¡£ÔÚȱʡ״̬Ï£¬±äÁ¿¶ÔÓÚʼþ¹ý³ÌÀ´ËµÊǾֲ¿µÄ£¬¾ÍÊÇ˵½öÄÜÔÚ´´½¨ÕâЩ±äÁ¿µÄʼþ¹ý³ÌÖжÁÈ¡»òÕßÐ޸ıäÁ¿¡£ÓëÖ®ÏàËÆ£¬Ê¼þ¹ý³Ì¶ÔÓÚ´´½¨ËüÃǵĴ°ÌåÀ´ËµÒ²ÊǾֲ¿¡£ÎªÁËÔÚ¹¤³ÌÖеÄËùÓд°ÌåºÍʼþÖй²Ïí±äÁ¿ºÍ¹ý³Ì£¬ÐèÒªÔڸù¤³ÌµÄÒ»¸ö»ò¶à¸ö±ê׼ģ¿éÖжÔËüÃǽ


Ïà¹ØÎĵµ£º

VB/C++/C#´®¿ÚͨѶԴ´úÂ롾¸½ÏêϸעÊÍ¡¿


VB
    If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
    MSComm1.CommPort = i1
    MSComm1.PortOpen = True
    MSComm1.InputMode = comInputModeBinary
    MSComm1.InBufferCount = 0
& ......

VB ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨

VBÎı¾¼ÓÃÜ ÌرðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾­³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâƪÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆѧÓ빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
      ±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......

VB ʵÏÖVC TAbControl¿Ø¼þ

VBʵÏÖVC TabControl¿Ø¼þ
 
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
 
 
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
 
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......

vbÅúÁ¿´òÓ¡Êý¾Ý¿âÖеÄÕÕƬ

Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then
  
    Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
   ......

VBµ÷ÓÃϵͳµÄ"´òÓ¡»úÉèÖÃ"ºÍ"Ò³ÃæÉèÖÃ".

VBµ÷ÓÃϵͳµÄ"´òÓ¡»úÉèÖÃ"ºÍ"Ò³ÃæÉèÖÃ".
Option Explicit
Const FW_NORMAL = 400
Const DEFAULT_CHARSET = 1
Const OUT_DEFAULT_PRECIS = 0
Const CLIP_DEFAULT_PRECIS = 0
Const DEFAULT_QUALITY = 0
Const DEFAULT_PITCH = 0
Const FF_ROMAN = 16
Const CF_PRINTERFONTS = &H2
Const C ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ