189 8069 5689
您可以继承这个FORM，设这个被继承的FORM名字为MainForm
成都创新互联是一家专业提供井冈山企业网站建设,专注与成都网站建设、网站建设、H5响应式网站、小程序制作等业务。10年已为井冈山众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。
首先得新建一个空白的类，暂时命名为NewTemp
则修改这个类的代码为
Public Class NewTemp
Inherits MainForm
End Class
当然，这只是一个思路而已，如果要继承FORM在一个新的窗体里面作为控件，则此时不能单独的继承窗体！！！
这是不可避免的，除非更换电脑硬件，让处理器及内存处理得更快，或是不要用自带的 Panel 和 Label 控件，自定义一个容器，内容自绘。
卡顿主要原因：
1、控件多了，电脑必然会慢，因为在 Windows 里每个控件都相当于一个窗口，有自己的句柄，系统需要维护对应的窗口消息，那么一定会卡顿，只能缓解不能消除。
2、可以用多线程，在子线程中更新控件，通过委托的方式通知主线程，可以有效缓解卡顿的问题。
'我给你找到了，设置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)
用vs.net创建控件项目，其他的和vb类似...
新建项目-windows 窗体控件库
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("米")
ComboBox1.Items.Add("分米")
ComboBox1.Items.Add("厘米")
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
TextBox1.Text = "1"
Case 1
TextBox1.Text = "10"
Case 2
TextBox1.Text = "100"
Case Else
TextBox1.Text = ""
End Select
End Sub
End Class
Me.ListView1.View = View.Details '显示方式
Me.ListView1.SmallImageList = ImageList1 '显示为小图标时使用
增加上面的两句代码就能显示图片，还需要配置 ImageList1----这个你应该会
比如你ListView1.Items.Add(mylistitem)追加进入的是第0行，那么追加图片的代码是： ListView1.Items(0).ImageIndex = 2
'-------下面回答你的第二个问题-----------------------------------
Me.ListView1.Items(1).SubItems(2).Text = "你想要更改成的值"'---------这里是不是 Me.ListView1.Items(2).SubItems(3).Text = "你想要更改成的值"是因为索引是从0开始的