Question

vb2008问题

怎么实现点Form2里的button后把Form1里的按钮代码改了？
就是说我点Form1里的一个button1，弹出Form2，在Form2里按button2，
关闭Form2，Form1里的button1的代码改变
上面那个问题谢谢1L的解决，请回答下面的问题！
Form1里有N个button，Form2里有1个textbox和1个button
在Form1里点任意一个button后弹出Form2
在Form2里的textbox填写后点button，
使Form1里刚刚点的那个button的text属性变成Form2里的textbox输入的文字！
请问要怎么做？
好了加分！

Answer 1

Form1代码：
Public Class Form1
Public cmdIndex As Integer = 0 '由于vb2008不支持多个相同控件索引，必须自定义按键索引号。
Public FormTextBox As String = ""

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmdIndex = 1
CallForm()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cmdIndex = 2
CallForm()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
cmdIndex = 3
CallForm()
End Sub

Private Sub CallForm()
Form2.ShowDialog(Me)
Select Case cmdIndex
Case 1 'Button1
Button1.Text = FormTextBox
Case 2 'Button2
Button2.Text = FormTextBox
Case 3 'Button3
Button3.Text = FormTextBox
End Select

End Sub

End Class

Form2代码：
Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.FormTextBox = TextBox1.Text
Me.Close()
Me.Dispose()
End Sub

End Class

上面只是三个Button的简单例子，多个button自己添加代码，如果有N多个button将会写多很多代码，其实还有一种少写代码的方法，就是自定义一个button类型的变量数组，然后用继续方法实现，如：
Private Sub cmdButt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click,Button2.Click
'先在每个Button的TabIndex自定义一个索引号
cmdIndex = CType(sender, Button).TabIndex'读取Button的TabIndex值
CallForm()
End Sub
......由于这种方法有点复杂，这里就不写了，自己翻MSDN吧！

Answer 2

然后再建表啥的，不过涉及到帐户安全问题，默认帐户没有建立数据库权限，需要将帐户的数据库角色选中 database creators 方法就是和平时用VB2008里查询数据一,Tekmdi

Answer 3

你最多改Form1里的button1的属性，例如Text属性，怎么能改代码呢？

追问

哦哦！
我就是想做一个保存书签的小程序
Form1里有N个button，Form2里有1个textbox和1个button
在Form1里点任意一个button后弹出Form2
在Form2里的textbox填写后点button，
使Form1里刚刚点的那个button的text属性变成Form2里的textbox输入的文字！
请问要怎么做？

追答

定义一个模块，定义 Public 变量，保存按钮值

追问

能给个代码吗？

追答

你的问题太复杂，只能给个思路