VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 1174|回复: 5

取得form表單名稱或是控制方式

[复制链接]
发表于 2013-3-12 18:36:02 | 显示全部楼层 |阅读模式
下面?程式??按下 Command1 後 RS232物件?送3??料出去

Private Sub Command1_Click()
    RS232WriteData(0) = &H10
    RS232WriteData(1) = &HC0
    RS232WriteData(2) = &H10
    RS232.Output = RS232WriteData
End Sub


那??是 我?之移到模?後

Public Sub RS232Send()
    RS232WriteData(0) = &H10
    RS232WriteData(1) = &HC0
    RS232WriteData(2) = &H10
    RS232.Output = RS232WriteData
End Sub

??原程式改?

Private Sub Command1_Click()

    RS232Send

End Sub

??RUN後有??
??模??容改?

Private Sub Command1_Click()
    RS232WriteData(0) = &H10
    RS232WriteData(1) = &HC0
    RS232WriteData(2) = &H10
    表?名?.RS232.Output = RS232WriteData
End Sub

???了
因?我建好模?了
有什?方式?上面的表?名?我可以不用去查我的表?名?是什??
或是有什?函?可?取表?名?呢?
要不然每次要用到 RS232Send 都要先去找目前的表?名?是什?才能用
主要是想?~都件好模?了~就直接使用~能不要管"表?"名?
不知道能否?成~?址是我一?想法啦
知道的麻?提供一下~

印象中有一?Me的?法
?印象+??....
可是我改成

Public Sub RS232Send()
    RS232WriteData(0) = &H10
    RS232WriteData(1) = &HC0
    RS232WriteData(2) = &H10
    ME.RS232.Output = RS232WriteData
End Sub

?是不行...=.=

若?方法~那就真的每次使用都要去看目前表?名了!

点评

传递参数给过程,把窗体名称传递进去  发表于 2013-3-13 10:58
发表于 2013-3-13 15:56:32 | 显示全部楼层
也可以定义一个全局Form对象,调用时将当前form窗体对象赋值给全局对象,程序结束时别忘了释放该对象。cwa9958提供的方法最好,没有这么麻烦。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-3-13 16:36:21 | 显示全部楼层
xmchen 发表于 2013-3-13 15:56
也可以定义一个全局Form对象,调用时将当前form窗体对象赋值给全局对象,程序结束时别忘了释放该对象。cwa9 ...

感?回覆我?息的2位

但是~我?是看不懂意思

能否有程式??我看一下

?是有其他人懂得~麻?一下~

感?~Orz
回复 支持 反对

使用道具 举报

发表于 2013-3-13 16:52:35 | 显示全部楼层
sakanayy 发表于 2013-3-13 16:36
感?回覆我?息的2位

但是~我?是看不懂意思
  1. Dim TheFrm As Form  '如果在不同窗体中使用,则定义在模块级;
  2. Private Sub Command1_Click()
  3.    If Not TheFrm Is Nothing Then Unload TheFrm
  4.    Set TheFrm = yourForm
  5.     RS232Send
  6. End Sub

  7. Public Sub RS232Send()
  8.     RS232WriteData(0) = &H10
  9.     RS232WriteData(1) = &HC0
  10.     RS232WriteData(2) = &H10
  11.     TheFrm .RS232.Output = RS232WriteData
  12. End Sub
复制代码
'=============================cwa9958方法思路
  1. Private Sub Command1_Click()
  2.     call RS232Send(yourForm)
  3. End Sub

  4. Public Sub RS232Send(TheFrm As Form  )
  5.     RS232WriteData(0) = &H10
  6.     RS232WriteData(1) = &HC0
  7.     RS232WriteData(2) = &H10
  8.     TheFrm .RS232.Output = RS232WriteData
  9. End Sub
复制代码
回复 支持 反对

使用道具 举报

发表于 2013-3-14 00:47:02 | 显示全部楼层
02.Private Sub Command1_Click()

05.    RS232Send Mscomm1

06.End Sub

07.

08.Public Sub RS232Send(TheComm as mscomm)

09.    RS232WriteData(0) = &H10

10.    RS232WriteData(1) = &HC0

11.    RS232WriteData(2) = &H10

12.    Thecomm.Output = RS232WriteData

13.End Sub
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-3-18 11:40:16 | 显示全部楼层
我看到一??息

模??法需?入物件...

如果上面?息???

那似乎就??法解了

只好用?人法~?定表?名?一律?系???名? Form1    ......

??ok???不?造成什?不好的??呢?


感?所有回覆我?息的人^^
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-3-5 12:46

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表