主要是对SerialPort控件的编程和数据库的读取,
创新互联坚信：善待客户，将会成为终身客户。我们能坚持多年，是因为我们一直可值得信赖。我们从不忽悠初访客户，我们用心做好本职工作，不忘初心，方得始终。十年网站建设经验创新互联是成都老牌网站营销服务商,为您提供做网站、成都网站设计、网站设计、HTML5、网站制作、成都品牌网站建设、重庆小程序开发服务,给众多知名企业提供过好品质的建站服务。
在数据库读取方面可以用 DataSet ,BindingSource , TableAdapter 等数据绑定控件,
SerialPort控件的具体读写方法建议你看MSDN,大概是:
Private Sub 关闭和启动串口()
Try
If 串口.IsOpen Then
串口.Close()
End If
串口.Open()
Catch ex As Exception
''''
End Try
End Sub
Private Sub 串口的读与写()
......
Dim 发送字节() As Byte, 返回字节 As Byte
Try
'例如要发送字节: 6D
发送字节 = BitConverter.GetBytes(CByte("H6D"))
串口.Write(发送字节, 0, 1)
......
'例如读串口返回的字节
返回字节 = 串口.ReadByte
Catch ex As Exception
''''
End Try
......
End Sub
'等等
源代码如下：（代码写在按钮点击事件里）
Label1.Text = ""
Label2.Text = ""
Dim a As String = TextBox1.Text
Dim b As String = TextBox2.Text
For x = 1 To a.Length
Dim txt As String = Mid(a, x, 1)
If txt Like "#" Then
Label1.Text = Label1.Text txt
End If
Next
For x = 1 To b.Length
Dim txt As String = Mid(b, x, 1)
If txt Like "#" Then
Label2.Text = Label2.Text txt
End If
Next
此方法用的是mid 将一个字符串拆分成单个字符，然后用like运算符进行对比是否为数字，关于这两个函数的用法如果不懂的可以自己搜索下，此外还有别的方法，这里就不多说了
首先应该在窗口（Form1）上添加一个TextBox1合一个Button1
然后添加以下代码：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mystring As String
mystring = TextBox1.Text
Msgbox(mystring)
End Sub
总之TextBox1.Text中的TextBox1一定要和你的文本框的名字(Name)相同
既然能够取得整个屏幕，可以取到整个屏幕以后创建一个全屏窗体显示静态的屏幕图像，然后在窗体上实现部分截取。
估计别的截图也是这个原理，因为一点开始截图屏幕就变为静态不动了，肯定是在截图初期复制了当时的屏幕场景
vb.net2008给你个在TextBox1中显示批处理时显示的内容的例子
比如：c:\1.bat的内容是dir *.*/w 就会显示当前工作目录下的内容，有可能不是在c盘根目录下的。
dir c:\*.*/w 就可以不受当前目录影响，显示c盘根目录下的内容。
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'将显示的内容写进Process.StandardOutput流中
Dim My_p As New Process()
Dim My_P_S As New ProcessStartInfo("c:\1.bat")
My_P_S.UseShellExecute = False
My_P_S.RedirectStandardOutput = True
My_p.StartInfo = My_P_S
My_p.Start()
'读取数据并在TextBox1中显示
Dim myStreamReader As StreamReader = My_p.StandardOutput
' Read the standard output of the spawned process.
Dim myString As String = myStreamReader.ReadToEnd()
TextBox1.Text = myString
My_p.Close()
End Sub
End Class
你的问题补充已经跟原来的提问差距很大了，实际上已经是两个问题了，修改批处理：比如
dir c:\*.*/w|find "B"
echo. pause
dos窗口会自动关闭