z4131126的个人资料 - RAT

z4131126 z4131126

关注数: 0 粉丝数: 1 发帖数: 50 关注贴吧数: 2

变量代替控件名称求助最近在搞个虚拟键盘遇到跟问题，希望各位同行能指点下我;问题如下: 程序里有多个窗口form1、form2、form3,其中form1有一个textbox控件用作数据输出和一个button控件做参数传送触发，form2、form3窗口中也分别有textbox控件，我现在需要做的是，当焦点在任意窗口中的textbox控件上时读取当前窗口的名称和textbox控件的名称分别保存到全局变量里并弹出form1窗口，点击form1中的button控件后就把form1中的textbox里的数据传送到和全局变量对应地址里的控件中。

VB.NET2010 GetPrivateProfileString 函数运行报警求助 Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Public A As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WritePrivateProfileString("参数一", "X轴速度", "123", Environment.CurrentDirectory & ".参数.TXT") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click GetPrivateProfileString("参数一", "X轴速度", "TextBox1", A, 255, Environment.CurrentDirectory & ".参数.TXT") TextBox1.Text = A End Sub 上面这段程序总是报“尝试读取或写入受保护的内存。这通常指示其他内存已损坏。”是怎么回事啊，写没有问题就只有读的时候老报错，求大家给我瞧瞧。

1 下一页