[求助]圆角边框的有不规则白边 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

设计窗口背景的图片填充，预览后发现窗口背景圆角位置有白边，图片是PNG格式，且用圆角外形设计添加蒙版的。

此主题相关图片如下：微博桌面截图_20150127115847.jpg

afterload 代码为：e.Form.BaseForm().TransparencyKey = Color.White

e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

[此贴子已经被作者于2015-1-27 12:30:08编辑过]

例子发上来看看。

照理是会透明的。

您给看看是为何？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目20150127.zip

另外还有个问题想请教，我将内部数据源改为外部数据源后，该如何定义变量？

举例

以下内容为程序代码:

1 Dim zh As WinForm.TextBox = e.Form.Controls("账号")
2 Dim mm As WinForm.TextBox = e.Form.Controls("电话")
3 If Tables("账号密码").rows.count = 0 Then
4 MessageBox.Show ("账号不存在,或者电话号码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
5 zh.value=""
6 mm.value=""
7 Else
8 If zh.Value ="" Then
9 MessageBox.Show ("请输入账号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
10 Else
11 Dim mms As String = Tables("账号密码").Current("电话")
12 If mm.value = "" Then
13 MessageBox.Show ("电话不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
14 Else
15 If mm.value= mms Then
16 Forms("修改密码").baseform.Opacity = 0
17 Forms("修改密码").close
18 Forms("修改").open
19 Else
20 MessageBox.Show ("账号不存在,或者电话号码错误!","提示",MessageBoxButtons.OK)
21 zh.value=""
22 mm.value=""
23 End If
24 End If
25 End If
26 End If

这样一段代码，如果我需要引用外部数据源的user数据库，这其中变量该如何定义？

比如其中这段

以下内容为程序代码:

1 If Tables("账号密码").rows.count = 0 Then
2

该如何修改

再比如这段

以下内容为程序代码:

1 Dim mms As String = Tables("账号密码").Current("电话")

这个账号密码原先是内部数据表中的数据，现在放在了sql server中，该如何定义？

[此贴子已经被作者于2015-1-27 16:40:14编辑过]