vbÓëÊý¾Ý¿â
VBÊý¾Ý¿â²Ù×÷ʵÀý
2008-02-22 05:49
VBÊý¾Ý¿â²Ù×÷¶ÔºÜ¶à³õѧÕßÅóÓѸе½±È½Ï³ÔÁ¦£¬Ä¿Ç°½Ì²ÄÖеÄʵÀý¶ÔÊý¾Ý¿â²Ù×÷¶¼±È½Ïµ¥Ò»£¬ºÜ¶àÅóÓÑÌáÒéÎÒ×öÒ»¸ö°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷ʵÀý£¬ÏÂÃæÕâ¸öʵÀý¾ÍÊÇÒ»¸öÕâÑùµÄÊý¾Ý¿â²Ù×÷ʵÀý¡£
¡¶Êé¿â¹ÜÀíϵͳ¡·ÊÇÒ»¸ö×î¼òµ¥µÄÊý¾Ý¿â²Ù×÷ʵÀý£¬Ëü°üÀ¨ä¯ÀÀ¡¢Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄܵÄÊý¾Ý¿â²Ù×÷£¬Ê¹ÓÃÊý¾ÝÁ´½Ó¿Ø¼þAdodcÁ´½ÓÊý¾Ý¿â¡¢Êý¾ÝÏÔʾ¿Ø¼þMSHFlexGridÏÔʾÊý¾Ý¿âÖеļǼ¡£
ÔÚн¨¹¤³Ìʱ¹¤¾ßÏäÖÐÊÇûÓÐAdodc¿Ø¼þºÍMSHFlexGrid¿Ø¼þµÄ£¬ÎÒÃDZØÐëµã»÷²Ëµ¥Öеġ¾¹¤³Ì¡¿-¡¾²¿¼þ¡¿£¬ÔÚ¶Ô»°¿òÖй´Ñ¡“Microsoft ADO Data Control 6.0 (SP6)”ºÍ“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”£¬×îºóµã»÷¡¾È·¶¨¡¿£¬ÕâÑùAdodc¿Ø¼þºÍMSHFlexGrid¿Ø¼þ¾ÍÒѾ·ÅÖÃÔÚ¹¤¾ßÏäÖÐÁË¡£
ÆäÖÐAdodc¿Ø¼þµÄConnectionStringÊôÐÔÖµÊÇ£º"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=¼ÒÍ¥Êé¼Ü.mdb;Persist Security Info=False"£¬ËüÉèÖÃÁ´½ÓÁË“¼ÒÍ¥Êé¼Ü.mdb”Õâ¸öAccessÊý¾Ý¿â£¬RecordSourcÊôÐÔÖµÊÇ£º"select ͼÊéµÇ¼Ç±í.ID,ͼÊéµÇ¼Ç±í.Ãû³Æ,ͼÊéµÇ¼Ç±í.ÊéºÅ,ͼÊéµÇ¼Ç±í.×÷Õß,ͼÊéµÇ¼Ç±í.³ö°æÉç,ͼÊéµÇ¼Ç±í.³ö½è״̬,³ö½è¼Ç¼.½èÊéÈË,³ö½è¼Ç¼.µç»°,³ö½è¼Ç¼.µØÖ·,ͼÊéµÇ¼Ç±í.±¸×¢,ͼÊéµÇ¼Ç±í.³ö½è¼Ç¼ from ͼÊéµÇ¼Ç±í,³ö½è¼Ç¼ where ͼÊéµÇ¼Ç±í.ID=³ö½è¼Ç¼.zhuID ORDER BY ͼÊéµÇ¼Ç±í.ID"£¬ÒòΪÔÚ“¼ÒÍ¥Êé¼Ü.mdb”Êý¾Ý¿âÖаüº¬"ͼÊéµÇ¼Ç±í"ºÍ"³ö½è¼Ç¼"¶þ¸öÊý¾Ý±í£¬ÕâÊǶà±íÁ´½ÓµÄµäÐ͵ÄSQLÓï¾ä¡£AdodcµÄÕâ¶þ¸öÊôÐÔÖµÔÚVBµÄÊôÐÔ´°¿Ú½øÐб༣¬Äã¿ÉÒÔ½«ÉÏÊöÊôÐÔÖµÖ±½ÓÊäÈëµ½ÏàÓ¦µÄÊôÐÔÖУ¬ÉèÖÃVisibleµÄֵΪFalse£¬Ä¿µÄÊÇÔÚÔËÐÐÖв»ÏÔʾÕâ¸ö¿Ø¼þ£¬ÆäËûÊôÐÔĬÈÏÖµ¼´¿É¡£
MSHFlexGrid¿Ø¼þµÄÃû³ÆÎÒÃÇÐÞ¸ÄΪMS1£¬ËüµÄÊôÐÔÉèÖÃÉÔÉԱȽÏÂé·³£º
Ê×ÏȽ«ËüµÄDataSourceÊôÐÔÔÚÊôÐÔ´°¿ÚÉèÖÃΪ"Adodc1"£»
È»ºóÔÚ¶ÔÏó´°¿ÚÓÒ»÷¿Ø¼þ£¬ÔÚÏÂÀ²Ëµ¥Öеã»÷¡¾ÊôÐÔ¡¿£¬ÔړͨÓÔ±êÇ©ÖÐÐÞ¸ÄÐÐΪ3£¬ÐÞ¸ÄÁÐΪ11£¬Ð޸Ĺ̶¨ÐÐΪ0£¬Ð޸Ĺ̶¨ÁÐΪ0£¬Èç¹ûÊý¾ÝÁ´½ÓûÓÐÎÊÌ⣬ÔÚÊôÐԵē´øÇø”±êÇ©ÖпÉÒÔ¿´µ½ÁбêÌâºÍÁÐÃû³ÆÒѾÉèÖÃÁË£¬ÆäËûÊôÐÔÒ³µÄÊôÐÔ¿ÉÒÔÈÝÐíĬÈÏÖµ£¬Öеã»÷¡¾È·¶¨¡¿¼´¿É¡£
ÁíÍâÔÚÊôÐÔ´°¿ÚÉèÖÃMSHFlexGrid¿Ø¼þµÄBackColorBkgÊôÐÔΪ&H
Ïà¹ØÎĵµ£º
ÒªÏëÔÚVB6.0ÖÐʹÓÃOpenGL»æÍ¼£¬±ØÐëÏÈÏÂÔØÒ»¸öSDK,Ãû×Ö½Ðvbogl.tlb¡£ÎÒÓõİ汾ÊÇ2.1£¬Õâ¸öÔÂÒª³ö3.0°æ±¾µÄÁË¡£
ÏÂÔØ¸ÃÎļþºó£¬Ö±½ÓÔÚVB6.0“¹¤³Ì”-“ÒýÓÔÀïÃæÒýÓÃ
1¡¢ÔÚformÖмÓÈëÒ»¸öPictureBox¿Ø¼þ
2¡¢ÒªÔÚWindowsÀïÃæÊ¹ÓÃOpenGL£¬±ØÐëÏȽøÐÐÏñËØ¸ñʽÉèÖ㬺¯Êý´úÂëÈçÏÂ
Dim hRC ......
Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--½«DataGridµ¼³öÖÁExcel,ProgressBar1Ϊ½ø¶ÈÌõ,intFirstΪ´ÓÄÄÒ»ÁпªÊ¼´òÓ¡,intLastΪ´òÓ¡µ½ÄÄÒ»ÁÐ
On Error Resume ......
JavaScript/VB Script½Å±¾³ÌÐòÒ»°ãÓÐÁ½ÖÖÖ´Ðз½Ê½£¬Ò»ÖÖÊÇǶÈëÔÚËÞÖ÷³ÌÐòÀïÃæÖ´ÐУ¬±ÈÈçÔÚIEä¯ÀÀÆ÷ÀïÃæÖ´ÐУ»ÁíÍâÒ»ÖÖ£¬ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ö´ÐУ¨ËäÈ»»¹ÊÇͨ¹ýÁíÍâÒ»¸ö³ÌÐò½âÊÍÖ´ÐУ¬µ«ÊǸøÈ˵ĸоõ±Ï¾¹ÊÇÖ±½ÓÔËÐУ©¡£
ÕâÁ½ÖÖ·½Ê½£¬¶¼¿ÉÒÔʹÓÃVisual StudioÀ´½øÐе÷ÊÔ£¬ÏÈ¿´´ó¼ÒÓÃµÃ±È½ÏÆµ·±µÄÍøÒ³½Å±¾³ÌÐòµÄµ÷ÊÔ£º
1 ......
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
......
¡¡ÏÖ½ñÊÐÃæÉÏÁ÷ÐеÄһЩӢÓïѧϰÈí¼þ£¬ÔÚ¹ã¸æ´ÊÉϾ³£Ëµ×Ô¼ºÊ¹ÓÃÁ˹ú¼Ê¶¥¼âµÄÈ«³ÌÓïÒôTTS¼¼Êõ£¬ÄܽøÐÐÕû¶ÎÓ¢ÎĵÄÁ÷ÀûÀÊ
¶Á£¬²¢ÄÜ×ÔÓɵ÷½ÚÀʶÁµÄËÙ¶ÈÓëÆµÂʵȡ£ÄÇô£¬Õâ¸öÉñÆæµÄTTS¾¿¾¹ÊÇʲô¶«Î÷ÄØ£¿
¡¡¡¡Æäʵ£¬TTSÊÇ΢Èí³öÆ·µÄÒ»Ì×ÎÄ×ÖÀʶÁÒýÇæ£¨Text-To-Speech Engine)£¬ÕâЩӢÓïÈí¼þ¾ÍÊǵ÷ÓÃËüÀ´½øÐÐÓ¢ÎÄÀʶÁµÄ¡£ÎÒÃÇÔ ......