帮忙将如下vb代码改写为vc代码

[amb]

Private Sub Command7_Click()
On Error Resume Next
If Trim(Combo2.Text) = "" Then
Exit Sub
End If
If Command7.Caption = "读AD(&D)" Then
iNe = 1
With Timer1
.Interval = CInt(Trim(Combo2.Text))
.Enabled = True
End With
Command7.Caption = "停止读AD(&O)"
Exit Sub
End If
If Command7.Caption = "停止读AD(&O)" Then
Timer1.Enabled = False
Command7.Caption = "读AD(&D)"
End If
End Sub

Sub ReadAD()
'----------------------
'读AD数据
'----------------------
Dim iArr(1 To 16) As Byte
Dim sL(1 To 2) As Integer
Dim jm As Integer
Dim Low As Integer, hig As Integer
Dim Add As String, Data As String
On Error Resume Next
If iNext = 0 Then
iNext = 1
End If
Image3.Visible = False
For i = 1 To 1000
DoEvents
Next i
iNe = iNe + 1
Image3.Visible = True
sInt = USB_ReadADOnce(iArr(1), sL(1))
jm = 1
Text1.AddItem "读AD:" & iNe & "次 返回：" & sInt & " 读到的数据长度：" & sL(1)
Call iRemovelist
For i = 1 To sL(1) Step 2
Low = iArr(i)
hig = (iArr(i + 1) And &HF) * 256
Text1.AddItem "通道" & jm & " " & Low + hig
Call iRemovelist
Label4(jm).Caption = Low + hig
jm = jm + 1
Next i
Call iRemovelist
End Sub

Private Sub Timer1_Timer()
Call ReadAD
End Sub


另：听说VC++可以将.frm转化为.rc，请问如何转化，谢谢

[aa3000]

嗯。。。给你一个思路算了

关于Timer 你直接用 CWnd 里面的 SetTimer 就行了。

其他的都很容易，个人觉得你分开来问更好。关于界面的太多了