示例转换成FT的语言~ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，如下代码示例，转换成我们FT的语言是什么样呢？

4.程序修改

浏览器插件会把相应的参数通过命令方式传到CS程序中，在CS程序中解析命令得到相应的浏览器参数，调用api就可以把程序附加到浏览器中，satrda提供了vb,pb,c++,c#,delphi等的调用示例，可以在下载的示例中查看。

以下代码将把当前窗口加载到当前的网页中：

---------------------

原文链接：https://blog.csdn.net/pcwe2002/article/details/74614173

C#代码：

//在main函数中添加

static void Main(string[] args)

{

if (args.Length > 0)

{

parseCommand(args[0]);

}

//需要附加到浏览器的窗口中添加

private void Form1_Load(object sender, EventArgs e)

{

if ( SatRDA.WebPtr != (IntPtr)(0) )

{

SatRDA.SatWebApp_Attach(SatRDA.WebPtr, this.Handle, 0 | SatRDA.WS_CHILD );

}

VB代码:

VBWebApp Me.hwnd

C++代码:

//在窗口打开时添加,of_parseCommand函数具体见定义

of_parseCommand();

HMODULE h = LoadLibraryA("satrda.dll");

fWebApp_Attach webapp_attach = (fWebApp_Attach)GetProcAddress(h,"SatWebApp_Attach");

webapp_attach(gl_web,m_hWnd,WEBAPP_FULL);

---------------------

原文链接：https://blog.csdn.net/pcwe2002/article/details/74614173

谢谢蓝老师，这样转换了：

此主题相关图片如下：微信截图_20190808110643.png

那怎么把VB.NET转换成我们FT的语言呢：

VB.NET

在main函数中添加

Private Shared Sub Main(ByVal args As String())

If args.Length > 0 Then

parseCommand(args(0))

End If

End Sub

转成FT的语言（在main函数中添加，在我们这里指什么呢）：

此主题相关图片如下：微信截图_20190808110830.png

VB.NET（需要附加到浏览器的窗口中添加）:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)

If SatRDA.WebPtr <> CType((0), IntPtr) Then

SatRDA.SatWebApp_Attach(SatRDA.WebPtr, Me.Handle, 0 Or SatRDA.WS_CHILD)

End If

End Sub

转成FT的语言（需要附加到浏览器的窗口中添加，是不是指窗口的Afterload呢）：

[此贴子已经被作者于2019/8/8 11:12:09编辑过]

谢谢蓝老师，是这个：

原文链接：https://blog.csdn.net/pcwe2002/article/details/74614173

第4个步骤

[此贴子已经被作者于2019/8/8 11:23:35编辑过]

蓝老师，他们就是这样关联的，没有其他的开发文档。

能咋整吗？

蓝老师，parseCommand 未定义~~

此主题相关图片如下：微信截图_20190808144542.png

哎呀，忘了，有文档和DEMO的。

蓝老师，麻烦帮忙看看；

下载信息 [文件大小：下载次数： ]
点击浏览该文件:dotnet示例.zip

哇塞，谢谢蓝老大！！！

对了，蓝老大，那这个呢：

If SatRDA.WebPtr <> CType((0), IntPtr) Then

SatRDA.SatWebApp_Attach(SatRDA.WebPtr, basemainform.Handle, 0 Or SatRDA.WS_CHILD)

End If

VB.NET（需要附加到浏览器的窗口中添加）:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)

If SatRDA.WebPtr <> CType((0), IntPtr) Then

SatRDA.SatWebApp_Attach(SatRDA.WebPtr, Me.Handle, 0 Or SatRDA.WS_CHILD)

End If

End Sub

转成FT的语言（需要附加到浏览器的窗口中添加，是不是指窗口的Afterload呢）：

[此贴子已经被作者于2019/8/8 16:38:35编辑过]

蓝老大，我全局代码写了，

这个还是这样：

是不是要添加什么dll之类的

此主题相关图片如下：微信截图_20190808170612.png

主题：示例转换成FT的语言~