189 8069 5689
可以将Form1里的串口公开,然后在Form2里添加对DataReceived事件的处理
成都创新互联专注于山丹企业网站建设,成都响应式网站建设公司,商城网站建设。山丹网站建设公司,为山丹等地区提供建站服务。全流程定制网站建设，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务
Form1.Designer.cs中将
private System.IO.Ports.SerialPort port;改为
publice System.IO.Ports.SerialPort port;
然后在Form2里加上
Form1.port.DataReceived += new System.IO.Ports.SerialDataReceivedEventHandler(port_DataReceived);
最后在
void port_DataReceived(object sender, System.IO.Ports.SerialDataReceivedEventArgs e)
{
在这里进行处理就可以了;
}
这个是C#的,VB的你自己转一下
Public Class Form1
Dim 初始化控件自动大小调整与窗口的宽度比例 As Integer
Dim 初始化控件自动大小调整与窗口的高度比例 As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
初始化控件自动大小调整与窗口的宽度比例 = Me.Width / 控件自动大小调整.Width
初始化控件自动大小调整与窗口的高度比例 = Me.Height / 控件自动大小调整.Height
显示控件的位置坐标()
End Sub
Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
' Form1_ResizeEnd 这个事件是 窗口大小变化完成后 再进行操作的
控件自动大小调整.Location = New Point(控件自动大小调整.Left, 控件自动大小调整.Top)
'设置控件的初始左位置坐标 与 上位置坐标
控件自动大小调整.Size = New Point(Int(Me.Width / 初始化控件自动大小调整与窗口的宽度比例), Int(Me.Height / 初始化控件自动大小调整与窗口的高度比例))
'更改控件的大小 按第一次窗口的比例 进行调整
显示控件的位置坐标()
End Sub
Private Sub 显示控件的位置坐标()
Label1.Text = "控件的上边距坐标： " 控件自动大小调整.Top
Label2.Text = "控件的左边距坐标： " 控件自动大小调整.Left
Label3.Text = "控件的宽度大小： " 控件自动大小调整.Width
Label4.Text = "控件的高度大小： " 控件自动大小调整.Height
End Sub
End Class
还有好多方法 慢慢研究吧兄弟 希望能帮到你
控件是可以显示在里面的，你只要加个label，把label的属性设为visualble=fause就行。设置鼠标经过头像的mouseHover和mouseLeave事件，当mouseHover时label的属性visualble=true，当mouseLeave时label的属性visualble=fause即可。窗体的鼠标事件可以设置控件的cursor属性，里面可以选择许多种鼠标图形。 只要是正常的Form都可以改变窗体大小，但是无边框的窗体只能用函数改变或者设置属性，在debug后是不能改变的。拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可，不难。
'我给你找到了，设置region属性就可
Private Sub PictureBox1_DoubleClick(sender As System.Object, e As System.EventArgs) Handles PictureBox1.DoubleClick
If PictureBox1.Region Is Nothing Then
Dim path As New System.Drawing.Drawing2D.GraphicsPath
path.AddEllipse(0, 0, 200, 200)
PictureBox1.Region = New Region(path)
Else
PictureBox1.Region = Nothing
End If
End Sub
'这个双击图片框使其变形，通过GraphicsPath对象可以作出各种形态来，比如可作出文字形状
Dim stringText As String = "我是谁"
Dim family As New FontFamily("Arial")
Dim myfontStyle As Integer = CInt(FontStyle.Italic)
Dim emSize As Integer = 86
Dim origin As New Point(20, 20)
Dim format As StringFormat = StringFormat.GenericDefault
path.AddString(stringText, family, myfontStyle, emSize, _
origin, format)
PictureBox1.Region = New Region(path)