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

vb´°Ìåµ÷ÊÔÎÊÌâ

ÓÃVS ±àÒëÆ÷£¬ VBÓïÑÔд³ÌÐòʱ
´Ó±¾´°Ìåµ÷ÊÔÄÜÕý³£ÔËÐУ¬
µ«ÊÇ´ÓÆôÓô°ÌåÈ·²»ÄÜÕý³£ÔËÐÐÊÇΪʲôѽ!
´úÂëÈçÏ£º
      Dim ccmain As New frmccmain

        If txtempno.Visible = True Then
            ccmain.cmbempno.Text = dgvempno.Rows(dgvempno.CurrentCell.RowIndex).Cells(0).Value.ToString
            ccmain.txtname.Text = dgvempno.Rows(dgvempno.CurrentCell.RowIndex).Cells(1).Value.ToString
            ccmain.txtdeptempname.Text = dgvempno.Rows(dgvempno.CurrentCell.RowIndex).Cells(2).Value.ToString
            ccmain.txtkind.Text = dgvempno.Rows(dgvempno.CurrentCell.RowIndex).Cells(3).Value.ToString
            Me.Close()
        End If

ÎÒÏëdgvempno(datagridview)»ñÈ¡À´µÄÖµ´«µÝ¸øfrmccmain´°ÌåµÄijһ¸öTEXTBOXÀ¸Î»
´Ó±¾´°Ìåµ÷ÊÔûÓÐÎÊÌ⣬ µ«ÊÇ´ÓÆôÓô°Ìåµ÷ʽ¾Í²»ÐÐûÓб¨´í£¬ µ«ÊǾÍÊÇÈ¡²»Öµ
ÇëÎʸ÷λÊÇʲôԭÒòѽ
ÆôÓõÄÓ¦¸ÃÊÇSub Main°É¡£¿´Õâ¸öÑù×Ó

1. ±¨µÄʲô´í£¿
2. ÔÚÄÄÀïÅ׳öµÄÒì³££¿

Ìù³öÀ´£¬¿´Ò»Ï¡£

ûÓб¨´í£¬ ¾ÍÊÇÈ¡²»µ½Êý¾Ý

ûÓÐÆô¶¯SUB main  ÊÇDEBUG


Ïà¹ØÎÊ´ð£º

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õʼ×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

VBµ÷ÓÃUsb7kC.dll

¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll

³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆ̨×ÀµÄ¿ª¹ØµÆ
Ô­ÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨

´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß· ......

ÓÃvb±àдľÂí³ÌÐò

ľÂíÒ»°ã·ÖΪÁ½¸öÖ÷³ÌÐò:Ò»¸öÊÇ·þÎñÆ÷¶ËµÄ³ÌÐò(server),ÁíÒ»¸öÊÇ¿Í»§¶Ë³ÌÐò(client),·þÎñÆ÷³ÌÐòÊǸø
¹¥»÷¶ÔÏóÓõÄ,ǧÍò²»¿ÉÓôíÁË----¸ø×Ô¼ºÖÖÂíµÄÈË......^0^

¿Í»§³ÌÐò²ÅÊǸø×Ô¼ºÓõÄ,ÓÚÊÇÎÒÃǾÍÓÃVB½¨Á¢ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ