以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口满屏显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189712)

--  作者:nxqtxwz
--  发布时间:2023/12/20 12:38:00
--  窗口满屏显示
请问老师,
1、我制作一个独立窗口,怎样才能让这个窗口一打开就是满屏显示呢。
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编辑过]

--  作者:nxqtxwz
--  发布时间:2023/12/20 15:00:00
--  
直接赋值代码应写在哪呢,写窗口的事件中都显示错误。
比如以用户名调取表A的性别、民族、照片等写入窗口相应的控件中怎么写代码呢


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


--  作者:nxqtxwz
--  发布时间:2023/12/20 15:53:00
--  
在表事件中没问题
就是给窗口控件赋值不知怎么做,代码这么写在窗口事件中显示错误。
e.form.Controls("Text1") = User.Name

--  作者:有点蓝
--  发布时间:2023/12/20 16:24:00
--  
显示什么错误?控件名称写对了吗?
--  作者: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

--  作者:有点蓝
--  发布时间:2023/12/20 16:37:00
--  
多看几遍:http://www.foxtable.com/webhelp/topics/1284.htm

Dim dr As DataRow = DataTables("职工信息总表").Find("姓名=\'" & User.Name & "\'")

--  作者:nxqtxwz
--  发布时间:2024/1/11 8:24:00
--  
请问,自制窗口在别的一些显示器上不能正常显示的问题有办法解决吗。估计应该是与不同显示器上不同的分辩率有关。