VB ¼Çʱ¾ ȫѡµÄʵÏÖ·½Ê½
ÓÃÁËrichtextbox×ö¼Çʱ¾
¶ÔÓÚ´óÎı¾Îļþ ȫѡʱ »áÓкܳ¤Ê±¼äµÄÎÞÏìÓ¦
ÓÐûʲôºÃµÄ·½Ê½ÄܱȽϺõÄʵÏÖȫѡ¡££¿
½áÌûÂÊ£º0.00%
RPÓÐÎÊÌâµÄÈË¿´À´ÊÇÄÑ»ìÁË
¸ÕÀ´°¡¡£¡£¡£ÃÆÃÆ ÓÐÌù »¹Ã»½á°¡¡£¡£¡£¡£
SendKeys "{home}+{end}"
VB code:
Private Sub Command1_Click()
RichTextBox1.SetFocus
End Sub
Private Sub RichTextBox1_GotFocus()
SendKeys "{home}+{end}"
End Sub
SendKeys "{Ctrl} + A"
Ïà¹ØÎÊ´ð£º
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
ÒªÓÃvb´òÓ¡Ò»ÌõÏߣ¬³¤¶ÈÊÇ100ºÁÃ×Ôõôд£¿
¹Ø×¢
VB code:
Printer.ScaleMode = vbMillimeters
Printer.Line (10, 10)-(110, 10)
Printer.ScaleMode = vbMillimeters
Print ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......