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

sakanayy

下面?程式??按下 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

?是不行...=.=

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

xmchen

也可以定义一个全局Form对象，调用时将当前form窗体对象赋值给全局对象，程序结束时别忘了释放该对象。cwa9958提供的方法最好，没有这么麻烦。

sakanayy

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

感?回覆我?息的2位

但是~我?是看不懂意思

能否有程式??我看一下

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

感?~Orz

xmchen

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. 
   
8. Public Sub RS232Send()
   
9.     RS232WriteData(0) = &H10
   
10.     RS232WriteData(1) = &HC0
    
11.     RS232WriteData(2) = &H10
    
12.     TheFrm .RS232.Output = RS232WriteData
    
13. End Sub

复制代码

'=============================cwa9958方法思路

1. Private Sub Command1_Click()
   
2.     call RS232Send(yourForm)
   
3. End Sub
   
4. 
   
5. Public Sub RS232Send(TheFrm As Form  )
   
6.     RS232WriteData(0) = &H10
   
7.     RS232WriteData(1) = &HC0
   
8.     RS232WriteData(2) = &H10
   
9.     TheFrm .RS232.Output = RS232WriteData
   
10. End Sub

复制代码

worldy

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

sakanayy

我看到一??息

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

如果上面?息???

那似乎就??法解了

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

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


感?所有回覆我?息的人^^