共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：foxtable能否调用webview2
1楼
cglsg5076 发表于：2023/11/8 20:37:00请问老师，foxtable能否调用webview2？谢谢
2楼
有点蓝 发表于：2023/11/9 8:41:00调用不了
3楼
百灵 发表于：2023/11/10 10:24:00可以，引用的文件有点大，浏览网页没问题，其他就不知道了。引用Microsoft.Web.WebView2.Core.dll及Microsoft.Web.WebView2.winforms.dll
Dim v As new Microsoft.Web.WebView2.WinForms.WebView2()
Dim pn As WinForm.Panel = e.Form.Controls("Panel1")
pn.basecontrol.controls.add(v)
v.Dock = system.windows.forms.Dockstyle.fill
If v IsNot Nothing Then
' v.CoreWebView2.Settings.IsZoomControlEnabled = True '是否启用网页的放大缩小功能
v.source = new uri("https://www.baidu.com/")
'v.CoreWebView2.Settings.IsScriptEnabled = True ' 是否启用JS脚本
'v.CoreWebView2.Settings.IsWebMessageEnabled = True ' 是否启用WebMessage
'v.CoreWebView2.Settings.AreDefaultScriptDialogsEnabled = True ' 是否启用默认的对话框
'v.CoreWebView2.Settings.IsStatusBarEnabled = True '是否显示状态栏,关闭时鼠标悬浮在链接上时右下角没有url地址显示
'v.CoreWebView2.Settings.AreDevToolsEnabled = True ' 是否启用开发工具, 默认为true,关闭时菜单中的相应选项也一起关闭
'v.CoreWebView2.Settings.AreDefaultContextMenusEnabled = True '是否启用右键菜单
'v.CoreWebView2.Settings.AreHostObjectsAllowed = True '是否启用脚本的HostObject注入
' v.CoreWebView2.Settings.IsBuiltInErrorPageEnabled = True ' 是否启用默认的错误对话框
End If
[此贴子已经被作者于2023/11/10 11:33:12编辑过]
4楼
lur320 发表于：2023/12/28 11:27:00 不行，会报错
此主题相关图片如下：捕获.png
此主题相关图片如下：捕获.png5楼
cglsg5076 发表于：2024/5/19 11:39:00请问老师：第三列的当前行的单元格的数据等于第二列的下一行单元格的值，该怎么写代码？
e.datarow("第二列")=e.datarow("第三列")这么写只能表示第二列和第三列的同一行。
学习指导。
6楼
有点蓝 发表于：2024/5/19 20:29:00http://www.foxtable.com/webhelp/topics/0553.htm
Dim r As Integer
r = tables("某表").FindRow(e.datarow)
r = tables("某表").FindRow(e.datarow)
if r > -1
e.datarow("第三列") = tables("某表").rows(r+1)("第二列")
end if
7楼
cglsg5076 发表于：2024/5/24 13:45:00请问老师，下面代码报错。程序就想启用双图表，第一个图表的程序通过可以执行，执行第二个图表就报错，请问如何解决。谢谢指导。
Dim Chart2 As WinForm.Chart
Dim Series As WinForm.ChartSeries
Dim tProd As Table = Tables("Proj")
Chart2= Forms("Data").Controls("Prod")
Dim min As Date = tProd.Compute("min(TDate)" ,"[Block]='" & sel & "'")
Dim max As Date = tProd.Compute("max(TDate)" , "[Block]='" & sel & "'")
dd=min
Chart2.SeriesList2.Clear() '清除图表原来的图系------------------------------
Series = Chart2.SeriesList2.Add() '给图表2增加一个图系-------------------
Chart2.ChartType2 = ChartTypeEnum.XYPlot
Chart2.AxisY.Text = "Prod"
Chart2.AxisY2.Text = "Accum"
i2=0
Do While dd <= max
Dim fdr3 = tProd.DataTable.find("TDate=#" & dd & "# And [Block]='" & sel & "'")
If fdr3 Is Nothing Then
Series.X(i2) = i2
Series.Y(i2) = 0
Else
Series.X(i2) = i2 ‘----执行到这里就报错，请问怎么解决
Series.Y(i2) = fdr3("T_Ave")
End If
If i2 Mod k = 0 Then
Chart2.AxisX.SetValueLabel(i2, dd)
Else
Chart2.AxisX.SetValueLabel(i2, "")
End If
i2 += 1
dd = dd.adddays(1)
Loop
[此贴子已经被作者于2024/5/24 13:51:10编辑过]
8楼
有点蓝 发表于：2024/5/24 14:17:00……
Series.Length = math.Ceiling((max - min).TotalDays)Do While dd <= max
……
9楼
cglsg5076 发表于：2024/5/25 17:25:00请问老师，启动双图表时，需要将第二个图表放在第一个图表之上，该怎样写代码？
一般情况下第一个图表盖住了第二个图表，现在需要将第二个图表盖在第一个图表之上。
谢谢。
10楼
有点蓝 发表于：2024/5/25 17:29:00把第二个图表作为第一个图表添加，第一个图表作为第二个图表添加
共10 条记录, 每页显示 10 条, 页签:
[1]