以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]圆角边框的有不规则白边  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63729)
--  作者：13865161910
--  发布时间：2015/1/27 12:30:00
--  [求助]圆角边框的有不规则白边
设计窗口背景的图片填充，预览后发现窗口背景圆角位置有白边，图片是PNG格式，且用圆角外形设计添加蒙版的。

图片点击可在新窗口打开查看此主题相关图片如下：微博桌面截图_20150127115847.jpg
图片点击可在新窗口打开查看

afterload 代码为：e.Form.BaseForm().TransparencyKey = Color.White
e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

[此贴子已经被作者于2015-1-27 12:30:08编辑过]
--  作者：有点甜
--  发布时间：2015/1/27 14:00:00
--  

 例子发上来看看。

 

 照理是会透明的。
--  作者：13865161910
--  发布时间：2015/1/27 16:36:00
--  
您给看看是为何？
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:项目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编辑过]
--  作者：有点甜
--  发布时间：2015/1/27 16:54:00
--  

 背景弄成黑色，然后用代码

 

e.Form.BaseForm().TransparencyKey = Color.Black

 
--  作者：有点甜
--  发布时间：2015/1/27 16:56:00
--  

 回复3楼，外部表的写法和内部表的写法，是一样的。

 

http://www.foxtable.com/help/topics/1812.htm

 

[此贴子已经被作者于2015-1-27 16:56:31编辑过]
--  作者：13865161910
--  发布时间：2015/1/27 17:02:00
--  
一样的？如果代码中是用内部表定义的变量指向tables（列名）.current(列名)
以下内容为程序代码:

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

引用外部数据sql，代码也是这样编写吗？
--  作者：有点甜
--  发布时间：2015/1/27 17:06:00
--  

 是的，外部表和内部表一样用。
--  作者：13865161910
--  发布时间：2015/1/28 9:51:00
--  
这是内部表的结构内容

此主题相关图片如下：账号密码.jpg
按此在新窗口浏览图片
代码设计为
以下内容为程序代码:

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


作用是通过比对账号和电话，进行密码强制修改。如果改为外部引用sql server数据库，数据库表中内容为

此主题相关图片如下：微博桌面截图_20150128095049.jpg
按此在新窗口浏览图片

狐表中的外部数据源：

此主题相关图片如下：12121212.jpg
按此在新窗口浏览图片



请教代码该做如何修改，能否帮忙修改一下代码，我想学习一下，谢谢版主大大

另外圆角窗口用black做背景，白边问题解决，另有个疑问e.Form.BaseForm().TransparencyKey = Color.Black
color.后的颜色能直接替换成色值吗？该如何表示？

[此贴子已经被作者于2015-1-28 9:53:43编辑过]
--  作者：有点甜
--  发布时间：2015/1/28 9:53:00
--  

 参考

 

http://www.foxtable.com/help/topics/2048.htm

 

http://www.foxtable.com/help/topics/2945.htm

 
--  作者：有点甜
--  发布时间：2015/1/28 9:53:00
--  

 知识点 http://www.foxtable.com/help/topics/0396.htm