vb.net屏幕控制,vb窗体属性运行时显示在屏幕中心

请问如何用vb.net编写程序控制led电子屏显示文字？

主要是对SerialPort控件的编程和数据库的读取,

成都创新互联自2013年起，先为马边彝族等服务建站，马边彝族等地企业，进行企业商务咨询服务。为马边彝族企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

在数据库读取方面可以用 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

'等等

VB.NET如何用一个按钮控制另一个form的显示与关闭，我是这样搞的

你好，你使用这种方法只是在控制Form3的visible属性，Form3只是可见或隐藏，并不是真正的关闭了，而你使用Form3上的关闭按钮，他就是真的关闭了，是调用的Form3的Close方法，就是真的没有了，"我设置的S_form3就不起作用了”这句话你应该是想说按钮不起作用了吧，你的S_form3只是个变量，跟Form3没有什么关系，你只是用来当一个Form3可见性的标志，使用bool变量更能清楚表达你的意图。。。没必要用string啊。。。，

by the way,你在按钮事件里添加代码 Form3.Close()就会达到和在form3上按关闭按钮同样的效果。

vb.net中怎么可以让窗体全屏显示？

Me.Height = My.Computer.Screen.Bounds.Height

Me.Width = My.Computer.Screen.Bounds.Width

这是设置窗体的长宽和屏幕的分辨率一样大小，相当于全屏。

如果Me.WindowState=FormWindowState.Maximized的话，只是单纯的将窗体最大化，但恢复窗口大小后窗体的大小实际上还和原来一样大。

VB.NET的特点

1.真正成为面向对象以及支持继承性的语言。

2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。

3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。

4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。

VB.NET的窗体是通过什么属性来控制在屏幕上的位置的？

.Top 和 .Left

.Top 是距离屏幕顶端的距离,也就是Y坐标

.Left 是距离屏幕左边的距离，也就是X坐标

例如

Private Sub Form_Load()

With Me

.Top = 0

.Left = 0

End With

End Sub

把自己的位置调到最左上角

vb.net 屏幕保护程序

系统就有这个屏保啊!~!

Option EXPlicit

Dim quitflag As Boolean '声明终止程序标志变量

Dim lleft

'声明隐藏或显示鼠标的API函数

Private Declare Function ShowCursor Lib "user32"

(ByVal bShow As Long) As Long

'检测鼠标单击或移动

Private Sub Form_Click()

quitflag = True

End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)

Static xlast, ylast

Dim xnow As Single

Dim ynow As Single

xnow = X

ynow = Y

If xlast = 0 And ylast = 0 Then

xlast = xnow

ylast = ynow

Exit Sub

End If

If xnow xlast Or ynow ylast Then

quitflag = True

End If

End Sub

'检测按键

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

quitflag = True

End Sub

Private Sub Form_Load()

Dim X As Long

lleft = 0

'横向滚动文字的起始X坐标

If App.PrevInstance = True Then

'用APP对象的PrevInstance属性

Unload Me

'防止同时运行屏幕保护程序的两个实例

Exit Sub

End If

Select Case Ucase$(Left$(Command$, 2))

'装载命令行参数

Case "/S" '在显示器属性对话框中单击了

预览按钮或屏幕保护程序被系统正常调用。

Show

'全屏显示Form1窗体

Randomize

'初始化随机数生成器

X = ShowCursor(False)

'隐藏鼠标

BackColor = VBBlack

Do

Timer2.Enabled = True

'启动Timer2 ,显示屏幕保护滚动文字

DoEvents

'转让控制权,以便检测鼠标和按键行为

Loop Until quitflag = True

'运行屏幕保护滚动文字直至有鼠标和按键行为

Timer2.Enabled = False

'终止滚动文字

Timer1.Enabled = True

'启动Timer1,退出屏幕保护程序

Case Else

Unload Me

Exit Sub

End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim X

X = ShowCursor(True)

'显示鼠标

End Sub

Private Sub Timer1_Timer()

Unload Me

'退出屏幕保护程序

End Sub

Private Sub Timer2_Timer()

显示横向滚动文字

lleft = lleft + 100

If lleft = 11810 Then

lleft = 0

Lab1.Top = Int(Rnd * 7000)

End If

Lab1.Left = lleft

Timer2.Enabled = False

End Sub