Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:窗口满屏显示

1楼
nxqtxwz 发表于:2023/12/20 12:38:00
请问老师,
1、我制作一个独立窗口,怎样才能让这个窗口一打开就是满屏显示呢。
2、录入窗口中有一些控件,想一打开窗就将登录用户名填写在姓名控件中,并在另一个表中以登录的姓名查找这个人的信息填入窗口内相关控件中,包括照片写入图片控件中。
2楼
cd_tdh 发表于:2023/12/20 13:32:00
1、窗口最大化:
forms("窗口1").baseform.windowstate = 2
2、直接给控件赋值,比如:
e.form.Controls("Text1") = User.Name
[此贴子已经被作者于2023/12/20 13:33:31编辑过]
3楼
nxqtxwz 发表于:2023/12/20 15:00:00
直接赋值代码应写在哪呢,写窗口的事件中都显示错误。
比如以用户名调取表A的性别、民族、照片等写入窗口相应的控件中怎么写代码呢

4楼
有点蓝 发表于:2023/12/20 15:02:00
到窗口afterload事件写,使用Find查询:http://www.foxtable.com/webhelp/topics/0396.htm,查后给控件赋值
5楼
cd_tdh 发表于:2023/12/20 15:37:00
e.Form.Controls("TextBox1").text = UserName  
'注意红色部分,你系统的用户姓名是用得什么变量就改为什么变量

6楼
nxqtxwz 发表于:2023/12/20 15:53:00
在表事件中没问题
就是给窗口控件赋值不知怎么做,代码这么写在窗口事件中显示错误。
e.form.Controls("Text1") = User.Name
7楼
有点蓝 发表于:2023/12/20 16:24:00
显示什么错误?控件名称写对了吗?
8楼
nxqtxwz 发表于:2023/12/20 16:28:00
写不进去呀

Dim dr As DataRow = DataTables("职工信息总表").Find("姓名=User.Name")
        If dr IsNot Nothing Then
            e.form.Controls("TextBox1").text = User.Name
            e.form.Controls("TextBox2").text = dr("性别")
            
        End If
9楼
有点蓝 发表于:2023/12/20 16:37:00
多看几遍:http://www.foxtable.com/webhelp/topics/1284.htm

Dim dr As DataRow = DataTables("职工信息总表").Find("姓名='" & User.Name & "'")
10楼
nxqtxwz 发表于:2024/1/11 8:24:00
请问,自制窗口在别的一些显示器上不能正常显示的问题有办法解决吗。估计应该是与不同显示器上不同的分辩率有关。
共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.