¡¡¡¡¡¡¡¡Ê¹Óá°´òÓ¡¡±¶Ô»°¿ò
¡¡¡¡¡¡¡¡¡°´òÓ¡¡±¶Ô»°¿òÔÊÐíÓû§Ö¸¶¨´òÓ¡Êä³öµÄ·½·¨¡£Óû§¿ÉÖ¸¶¨´òÓ¡Ò³Êý·¶Î§¡¢´òÓ¡ÖÊÁ¿¡¢¸´ÖÆÊýÄ¿µÈµÈ¡£´Ë¶Ô»°¿ò»¹ÏÔʾÓе±Ç°°²×°µÄ´òÓ¡»úÐÅÏ¢£¬²¢ÔÊÐíÓû§½øÐÐÅäÖûòÖØÐ°²×°ÐµÄȱʡ´òÓ¡»ú¡£
¡¡¡¡¡¡¡¡×¢Ò⠴˶Ի°¿ò²¢²»ÕæÕýµØ½«Êý¾ÝË͵½´òÓ¡»úÉÏ¡£ËüÔÊÐíÓû§Ö¸¶¨ÈçºÎ´òÓ¡Êý¾Ý¡£±ØÐë±àд´úÂëʵÏÖÓÃÑ¡¶¨¸ñʽ´òÓ¡Êý¾Ý¡£
¡¡¡¡¡¡¡¡ÏêϸÐÅÏ¢ ¹ØÓÚ´òÓ¡Êý¾ÝµÄÐÅÏ¢£¬Çë²ÎÔĵÚÊ®¶þÕ¡°Ê¹ÓÃÎı¾ºÍͼÐΡ±¡£ÔËÐÐʱ£¬µ±Óû§ÔÚ¡°´òÓ¡¡±¶Ô»°¿ò×÷³öÑ¡Ôñºó£¬ÏÂÊöÊôÐÔ½«°üº¬Óû§Ñ¡ÏîµÄÐÅÏ¢¡£

¡¡¡¡¡¡¡¡ÒªÏÔʾ¡°´òÓ¡¡±¶Ô»°¿ò
¡¡¡¡¡¡¡¡1. ͨ¹ýÉèÖÃÏàÓ¦µÄ¡°´òÓ¡¡±¶Ô»°¿òÊôÐÔ£¬Îª¶Ô»°¿òÉèÖÃËùÐèȱʡÉèÖÃÖµ¡£ÀýÈ磬ΪÔÚÏÔʾ¶Ô»°¿òʱÔÚ¡°·ÝÊý¡±¿òÖÐÏÔʾ 2£¬Ó¦½« Copies ÊôÐÔÉèÖÃΪ 2£º
¡¡¡¡¡¡¡¡CommonDialog1.Copies = 2
¡¡¡¡¡¡¡¡2. Óà ShowPrinter ·½·¨ÏÔʾ¡°´òÓ¡¡±¶Ô»°¿ò¡£
¡¡¡¡¡¡¡¡Óû§µ¥»÷¡°Command1¡±ÃüÁťʱ£¬ÏÂÁдúÂ뽫ÏÔʾ¡°´òÓ¡¡±¶Ô»°¿ò£º
¡¡¡¡¡¡¡¡Private Sub Command1_Click ()
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Dim BeginPage, EndPage, NumCopies, Orientation. i
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'½« Cancel ÉèÖÃ³É True¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡CommonDialog1.CancelError = True
¡¡¡¡¡¡¡¡¡¡¡¡¡¡On Error GoTo ErrHandler
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'ÏÔʾ¡°´òÓ¡¡±¶Ô»°¿ò¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡CommonDialog1.ShowPrinter
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'´Ó¶Ô»°¿òÖлñÈ¡Óû§Ñ¡¶¨ÊýÖµ¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡BeginPage= CommonDialog1.FromPage
¡¡¡¡¡¡¡¡¡¡¡¡¡¡EndPage = CommonDialog1.ToPage
¡¡¡¡¡¡¡¡¡¡¡¡¡¡NumCopies= CommonDialog1.Copies
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Orientation=CommonDialog1.Orientation
¡¡¡¡¡¡¡¡¡¡¡¡¡¡For i = 1 to NumCopies
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'ÔÚ´Ë·ÅÖôúÂ룬½«Êý¾Ý·¢Ë͵½´òÓ¡»ú¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Next
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Nxit Sub
¡¡¡¡¡¡¡¡ErrHandler:
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'Óû§°´ÏÂÁË¡°È¡Ïû¡±°´Å¥¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Exit Sub
¡¡¡¡¡¡¡¡End Sub
¡¡¡¡¡¡¡¡×¢Òâ Èô½« PrinterDefault ÊôÐÔÉèÖÃΪ True£¬Ôò¿ÉÔÚ Visual Basic Printer ¶ÔÏóÉÏ´òÓ¡¡£ÁíÍ⣬µ± PrinterDefault ÊôÐÔΪ True ʱ£¬ËùÓÐÔÚ¡°´òÓ¡¡±¶Ô»°¿ò¡°ÉèÖá±²¿·ÖÖÐ×÷³öµÄ±ä¸ü¶¼½«¸Ä±äÓû§¡°´òÓ¡»ú¡±ÉèÖÃÖеĴòÓ¡»úÉèÖÃÖµ¡£
¡¡¡¡¡¡¡¡Ê¹Óà ShowHelp ·½·¨ÏÔʾ°ïÖúÎļþ
¡¡¡¡¡¡¡¡¿ÉÓà CommonDialog ¿Ø¼þµÄ ShowHelp ·½·¨ÏÔʾ°ïÖúÎļþ¡£
¡¡¡¡¡¡¡¡ÒªÊ¹Óà ShowHelp ·½·¨ÏÔʾ°ïÖúÎļþ
¡¡¡¡¡¡¡¡1. ÉèÖà HelpCommand ºÍ HelpFile ÊôÐÔ¡£
¡¡¡¡¡¡¡¡2. Óà ShowHelp ·½·¨ÏÔʾָ¶¨µÄ°ïÖúÎļþ¡£
¡¡¡¡¡¡¡¡ÔÚµ¥»÷¡°Command1¡±ÃüÁťʱ£¬ÏÂÁдúÂ뽫ÏÔʾָ¶¨µÄ°ïÖúÎļþ£º
¡¡¡¡¡¡¡¡Private Sub Command1_Click()
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'½« Cancel ÉèÖÃΪ True¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡CommonDialog1.CancelError = True
¡¡¡¡¡¡¡¡¡¡¡¡¡¡On Error GoTo ErrHandler
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'ÉèÖÃ HelpCommand ÊôÐÔ
¡¡¡¡¡¡¡¡¡¡¡¡¡¡CommonDialog1.HelpCommand = cdlHelpForceFile
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'Ö¸¶¨°ïÖúÎļþ¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡CommonDialog1.HelpFile = "c:\Windows\Cardfile.hlp"
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'ÏÔʾ Windows °ïÖúÒýÇæ¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡CommonDialog1.ShowHelp
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Exit Sub
¡¡¡¡¡¡¡¡ErrHandler:
¡¡¡¡¡¡¡¡¡¡¡¡¡¡'Óû§°´ÏÂÁË¡°È¡Ïû¡±°´Å¥¡£
¡¡¡¡¡¡¡¡¡¡¡¡¡¡Exit Sub
¡¡¡¡¡¡¡¡End Sub
¡¡¡¡¡¡¡¡ÏêϸÐÅÏ¢ ÓйØÏÔʾͨÓöԻ°¿ò¿Ø¼þµÄ°ïÖúÎļþµÄÏêϸÐÅÏ¢£¬Çë²ÎÔÄ¡¶VisualBasic 6.0ÓïÑԲο¼Êֲᡷ¡°HelpCommand ÊôÐÔ¡±¡¢¡°HelpFile ÊôÐÔ¡±ºÍ¡°ShowHelp ·½·¨¡±¡£
ʹÓÃData¿Ø¼þ
¡¡¡¡¡¡¡¡ÄÚÔÚµÄ Data ¿Ø¼þͨ¹ýʹÓà Microsoft µÄ Jet Êý¾Ý¿âÒýÇæÀ´ÊµÏÖÊý¾Ý·ÃÎÊ¡ª¡ªÓë Microsoft Access ËùÓõÄÊý¾Ý¿âÒýÇæÏàͬ¡£ÕâÒ»¼¼ÊõʹÓû§¿ÉÒÔÎÞ·ìµØ·ÃÎʺܶà±ê×¼µÄÊý¾Ý¿â¸ñʽ£¬¶øÇÒʹÓû§ÎÞÐè±àдÈκδúÂë¾Í¿ÉÒÔ´´½¨Êý¾Ýʶ±ðÓ¦ÓóÌÐò¡£ÕâÖÖÄÚÔÚµÄ Data ¿Ø¼þ×îÊʺϽÏСµÄ£¨×ÀÃæ£©Êý¾Ý¿â£¬ÖîÈç Access ºÍ ISAM Êý¾Ý¿â¡£
¡¡¡¡¡¡¡¡¿ÉÒÔʹÓÃÕâÖÖÄÚÔÚµÄ Data ¿Ø¼þ´´½¨Ó¦ÓóÌÐòÀ´ÏÔʾ¡¢±à¼ºÍ¸üÐÂÀ´×Ô¶àÖÖÒÑÓеÄÊý¾Ý¿âµÄÐÅÏ¢¡£ÕâЩÊý¾Ý¿â°üÀ¨ Microsoft Access¡¢Btrieve¡¢dBASE¡¢Microsoft FoxProºÍParadox¡£Ò²¿ÉÒÔʹÓÃÕâÖֿؼþÈçͬ·ÃÎÊÕæÕýµÄÊý¾Ý¿âÒ»ÑùÀ´·ÃÎÊ Microsoft Excel¡¢Lotus 1-2-3ÒÔ¼°±ê×¼µÄ ASCII Îı¾Îļþ¡£´ËÍ⣬Data ¿Ø¼þÒ²¿ÉÒÔ·ÃÎʺͲÙ×÷Ô¶³ÌµÄ¿ª·ÅʽÊý¾Ý¿âÁ¬½Ó (ODBC)Êý¾Ý¿â£¬ÖîÈç Microsoft SQL Server ÒÔ¼° Oracle¡£
¡¡¡¡¡¡¡¡×¢Òâ Data ¿Ø¼þºÍ Remote Data ¿Ø¼þÁ½Õß¶¼°üº¬ÔÚ Visual Basic ÖУ¬ÒÔÌṩÏòºó¼æÈÝ¡£²»¹ý£¬ÓÉÓÚ ActiveX Êý¾Ý¶ÔÏó (ADO) µÄÊÊÓ¦ÐÔ¸ü¹ã£¬Òò´Ë½¨ÒéʹÓà ADO Data ¿Ø¼þÀ´´´½¨ÐµÄÊý¾Ý¿âÓ¦ÓóÌÐò¡£ÏêϸÐÅÏ¢Çë²ÎÔÄ¡°Ê¹Óà ADO Data ¿Ø¼þ¡±¡£
¡¡¡¡¡¡¡¡Data ¿Ø¼þ¡¢Remote Data ¿Ø¼þÒÔ¼° ADO Data ¿Ø¼þÔÚ¸ÅÄîÉϺÜÏàËÆ£ºÈýÕß¶¼Êǽ«Ò»¸öÊý¾ÝÔ´Á¬½Óµ½Ò»¸öÊý¾Ý°ó¶¨¿Ø¼þµÄ¡°Êý¾Ý¿Ø¼þ¡±¡£ÈýÕßÒ²¶¼¹²ÏíÏàͬµÄÍâ¹Û¡ª¡ªÒ»×é¹²Ëĸö°´Å¤£¬Ê¹Óû§¿ÉÒÔÖ±½Óµ½´ï¼Ç¼¼¯µÄ¿ªÊ¼¡¢¼Ç¼¼¯µÄĩβÒÔ¼°ÔڼǼ¼¯ÖÐÏòǰ»òÏòºó·¾í¡£
ÎÄÕÂÕûÀí£ºÎ÷²¿ÊýÂë--רҵÌṩÓòÃû×¢²á¡¢ÐéÄâÖ÷»ú·þÎñ
http://www.west263.com
ÒÔÉÏÐÅÏ¢ÓëÎÄÕÂÕýÎÄÊDz»¿É·Ö¸îµÄÒ»²¿·Ö,Èç¹ûÄúÒª×ªÔØ±¾ÎÄÕÂ,Çë±£ÁôÒÔÉÏÐÅÏ¢£¬Ð»Ð»!




