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
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......