主题：[求助]FT语法格式问题

 foxtable的是vb.net

 vb转过来，基本相同，根据错误提示，去修改对应代码。

Dim nStyle As Long, T As Long

If ctCapWin = 0 Then '创建一个视频窗口,大小:640*480
    T = Me.ScaleY(Command1.Top + Command1.Height * 1.1, Me.ScaleMode, 3) '视频窗口垂直位置:像素
    'nStyle = WS_Child + WS_Visible + WS_Caption + WS_ThickFrame '子窗口(在Form1内)+可见+标题栏+边框
    nStyle = WS_Child + WS_Visible '视频窗口无标题栏和边框
    'nStyle = WS_Visible '视频窗口为独立窗口,关闭主窗口视频窗口也会自动关闭
    ctCapWin = capCreateCaptureWindow("我创建的视频窗口", nStyle, 0, T, 640, 480, Me.hWnd, 0)
End If

'将视频窗口连接到摄像头,如无后面两条语句视频窗口画面不会变化
SendMessage(ctCapWin, WM_CAP_Connect, 0, 0)          '连接摄像头
SendMessage(ctCapWin, WM_CAP_Set_PreView, 1, 0)      '第三个参数:1-预览模式有效,0-预览模式无效
SendMessage(ctCapWin, WM_CAP_Set_PreViewRate, 30, 0) '第三个参数:设置预览显示频率为每秒 30 帧
ctConnect = True

Private  改成 Public

Me.ScaleY 改成 e.Form.BaseForm.ScaleY