在主程序中对控件进行操作的过程 改写到类里面,高手赏光来看看

lin_style 2006-06-24 02:55:48
主程序(form1)中一段 sub
Public Sub cleardata()
txcustomerid.Text = ""
txattribname.Text = ""
txcompanyname.Text = ""
txcontact.Text = ""
txphone.Text = ""
txfax.Text = ""
txaddress.Text = ""
Debug.WriteLine(txcustomerid.Text)
End Sub

接着新建一个类为aa
我要把这段移到这个aa类里 怎么写
txphone这些名称怎么弄?
...全文
151 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
liu_yuanwei 2006-06-25
  • 打赏
  • 举报
回复
me就是指当前对象
sanjie88 2006-06-24
  • 打赏
  • 举报
回复
me就是form1
lin_style 2006-06-24
  • 打赏
  • 举报
回复
能问问,
ME 等于什么哦?
lin_style 2006-06-24
  • 打赏
  • 举报
回复
。。。分数为0啊 -_-

发问题都光了。 。。不好意思咯

以后有分第一个给你
sanjie88 2006-06-24
  • 打赏
  • 举报
回复
a.c_frmMain=me 把form1这个窗体的地址指给aa类下的c_frmMain,其实这两个窗体访问的是相同的地址,楼主,发技术贴怎么不给分啊
lin_style 2006-06-24
  • 打赏
  • 举报
回复
万分感谢。。

a.c_frmMain=me 这句什么意思哦。感觉这句最重要了
sanjie88 2006-06-24
  • 打赏
  • 举报
回复

public class aa
public c_frmMain as form1
Public Sub cleardata()
c_frmMain.txcustomerid.Text = ""
c_frmMain.txattribname.Text = ""
c_frmMain.txcompanyname.Text = ""
c_frmMain.txcontact.Text = ""
c_frmMain.txphone.Text = ""
c_frmMain.txfax.Text = ""
c_frmMain.txaddress.Text = ""
Debug.WriteLine(c_frmMain.txcustomerid.Text)
End Sub
end class
以上是aa的类
下面是调用aa的类的方法
public class form1
private sub getdata()
dim a as new aa
a.c_frmMain=me
a.cleardata()
end sub
end class
lin_style 2006-06-24
  • 打赏
  • 举报
回复
把form1传过去.
refForm.txphone.Text = ""


refForm 是实例化吗
不行。。
3tzjq 2006-06-24
  • 打赏
  • 举报
回复
把form1传过去.
refForm.txphone.Text = ""
....

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧