提示表明你的textbox未实例化，你要么直接在窗口上创建一个textbox控件textbox1，要么使用代码动态创建：
创新互联专注于墨玉企业网站建设,成都响应式网站建设公司,商城网站建设。墨玉网站建设公司,为墨玉等地区提供建站服务。全流程按需制作，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
dim tx as Textbox
set tx=new Textbox()
大概是这个代码，未测试。这样创建之后就可以使用它了。比如 original=textbox1.text 或者 original=tx.text
你可以先用循环的方法来获得改datagrid中“性别”的值，接着自己定义个变量来存放这个“性别”的1或者0，然后根据这个值用条件来判断是显示“男性”还是女性，打个比方(有五列十行数据，比方第二列显示出“性别”)：
Dim intRow As Integer
Dim intColumn As Integer
Dim Gender As Integer
For intRow = 0 To 9(DataGrid的行总和)
Gender = CInt(datagrid1.Item (intRow, 1).ToString )
If Gender = 0 Then
datagrid1.Item (intRow, 1)="男"
Else
datagrid1.Item (intRow, 1)="女"
Next
方法有很多
1.拖动移开一些控件 把下边的控件显示出来 选择 del删除
2.通过属性窗口调出该控件属性,这时该控件的边框会被标记,然后点击该控件边缘的控制点(作用是给他控制焦点),然后按del
3.打开代码窗口, 打开窗口设计代码, 删除你不需要的控件的定义和初始化语句(一般先删除定义语句,然后所有有关的定义语句都会标记语法错误,然后就可以方便的看出来 ,最后就是把标记了错误的相关语句删除就ok了.)
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
还有好多方法 慢慢研究吧兄弟 希望能帮到你
Dim tmpPic As New StdPicture '这些在通用部分
Private Sub Command1_Click() '改变picture1的图片
Set tmpPic = Picture1.Picture
Picture1.Picture = Picture2.Picture
End Sub
Private Sub Command2_Click() '恢复picture1的图片
Picture1.Picture = tmpPic
End Sub
首先你是怎么重写结构的Sub New的呢？不会有这个错误吗：“结构无法声明没有参数的非共享“Sub New”？
结构是值类型，和类不一样，不一定要有构造函数。直接
Dim B(2) As A
如果有一个含参数的Sub New(i As Integer)
Dim B() As A={New A(1), New A(2)}
有时要初始化很多个的时候可以用循环
Dim c As Integer = 50
Dim B(c) As A
For i = 0 To c
B(i) = New A(i)
Next
不过这样是对变量重新赋值，这种方法用在类上比较好。
看看这个有帮助哦：
