Question

VB.NET Public Sub 窗体 互相传值

窗体名:SqlInjection
Public Sub checkInjectionWithNoKeyword()
Dim injection_Type As String = My.Forms.SqlInjection.ComboBox_Type.Text.Trim()
Dim my_checkUrl As String = My.Forms.SqlInjection.ComboBox_Url.Text.Trim()
end sub

这样写的话怎么也赋值不过去
因为这个sub是多线程用的所以只能用sub 求助

Answer 1

Public Sub checkInjectionWithNoKeyword()
Dim injection_Type As String = My.Forms.SqlInjection.ComboBox_Type.Text.Trim()
Dim my_checkUrl As String = My.Forms.SqlInjection.ComboBox_Url.Text.Trim()
end sub
这个改成放在窗体内就行了，我也有遇到同样的问题，最后只好放窗体里才能实现。
网上找的什么委托都是不行的。

追问

..我有几千行甚至1W行的代码 不能都放窗体里吧

Answer 2

在Form1中
Public Class Form1
Public array(0)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Forms.childform.ShowDialog()

End Sub
End Class

在childform中
Public Class childform
Private Sub childform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick
My.Forms.Form1.array(0) = TextBox1.Text
Me.Hide()
End Sub
End Class
改成了双击TextBox1返回值

追问

...我不是窗体之间 不好意思

Answer 3

Public Sub checkInjectionWithNoKeyword()
Dim FormInjection As New SqlInjection()
FormInjection.Show()
FormInjection.Refresh()
Dim injection_Type As String = FormInjection.ComboBox_Type.Text.Trim()
Dim my_checkUrl As String = FormInjection.ComboBox_Url.Text.Trim()
end sub

追问

...我那个是一个模块 模块和窗体之间怎么传？

追答

模块更容易了，注意要在变量名前面添加类名限定。

追问

Public my_checkUrl As String = SqlInjection.ComboBox_Url.Text.Trim()
Public injection_Type As String = SqlInjection.ComboBox_Type.Text.Trim()
Public m_KeyWord As String = SqlInjection.ComboBox_KeyWord.Text.Trim()
我已经这样写了 都穿不过来值 ..

追答

你一会窗体一会模块的，到底是什么啊？模块哪来的控件？ComboBox_Type是什么？

追问

combobox_type是窗体SqlInjection的控件
而一些执行过程我放到模块里 我想把Combobox_type控件的.TEXT属性传给模块里的变量

追答

你这个变量定义是在过程里面还是外面？
如果在过程里面，public在过程里面的局部变量声明是无效的。
如果在过程外面，不能直接将控件的属性值赋值给变量，因为在过程外面语句定义不是一个事件，VB是不会执行的。

追问

现在我已经分开写了 但是这样还是不可以执行 我是通过异步执行的
一个新模块存放Public变量：
Public my_checkUrl As String
Public injection_Type As String
Public m_KeyWord As String

sub过程模块：
my_checkUrl = SqlInjection.ComboBox_Url.Text.Trim()
injection_Type= SqlInjection.ComboBox_Type.Text.Trim()
m_KeyWord = SqlInjection.ComboBox_KeyWord.Text.Trim()

追答

直接读完全没问题，我试过了，如果你是多线程做这样的操作，是不允许的，还是给你个msdn的例子吧：
http://msdn.microsoft.com/en-us/library/system.componentmodel.backgroundworker(v=VS.80).aspx

追问

..那应该怎么办？不能全写一个窗体里吧

追答

看你回答就知道你没研究，这是微软提供的例子，描述多线程绘制窗体控件的方法，只有吃透了，才能实现你想实现的功能，编程没有投机取巧，只有自己懂了，才是真的懂，别人给你一段代码，你照抄，以后出现问题，你还是不知道如何解决。

追问

感谢了

Answer 4

#include<iostream>
#include<string>
#include<fstream>
#include<sstream>
using namespace std;
class Tair //通过定义一个类来定义数据录入的函数
{
char flight[20]; char data[20];char start[20];
char finish[20];char stime[20];char ftime[20];int price;

追问

sorry 我这是vb.net 不过先谢谢了

Answer 5

用委托和事件能解决窗体互相传值