Foxtable(狐表) → 用户栏目 → 专家坐堂 → 没学会也买开发版


  共有9947人关注过本帖树形打印复制链接

主题：没学会也买开发版
帅哥哟，离线，有人找我吗？
石四
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/7/28 16:19:00 [只看该作者]

那段代码放在哪里？

另外，可不可以针对所有数据表空白区域设置背景色，代码又怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
晕了快扶我
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1197 积分：7056 威望：0 精华：0 注册：2013/3/4 18:02:00 		  发帖心情 Post By：2013/7/28 16:36:00 [只看该作者]

牛，跟当初我买的时候一样图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/7/30 10:20:00 [只看该作者]

不希望整行字体变红色,只超差的单元格生效,下面的代码如何改?

If e.Row("差异率") > 0.0003 Then
    e.Style = "超差"
End If

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20130730101439.png
图片点击可在新窗口打开查看

只差异率为0.0006的单元格字体变成红色.

-----------------------------------------------

学会了,代码改为:

Select Case e.Col.name

   Case "差异率"
If e.Row("差异率") > 0.0003 Then
    e.Style = "超差"
End If

End Select

[此贴子已经被作者于2013-8-1 21:04:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/8/21 20:34:00 [只看该作者]

杂七杂八事儿太多，狐表研发工作断断续续。

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

小刺猬很专业，做的界面华丽丽，可做为标杆学习。

登录日期标签照帮助文件的方法做出来了，

登录账号标签挖了小刺猬文件里的代码，没仿出来：

小刺猬代码

 

Dim lbl As WinForm.DateTimePicker

lbl = e.Form.Controls("DateTimePicker1")

lbl.Value = Date.Today()

e.Form.Controls("姓名").Text = "登录账号: [" & Tables("账户管理").Current("用户账号") & "]"

e.Form.Controls("日期").Text = "登录日期: " & Date.Today()

 

本人的

 

Dim lbl As WinForm.Label

lbl = e.Form.Controls("Welcome")

lbl.Text = "今天是" & Date.Today() & ",Foxtable开发团队欢迎您!"

Dim lb2 As WinForm.Label

lb2 = e.Form.Controls("Label2")

lb2.Text = "登录日期:" & Date.Today()

Dim lb3 As WinForm.Label

lb3 = e.Form.Controls("Label1")

lb3.Text = "登录账号: ["

 

粉色这段代码怎么写？

学会了：lb3.Text = "登录账号: [" & User.Name & "]"

另外这段代码 BeautifyControls(e.Form,"TextBox1,TextBox2")用于窗口里两个文本框控件(背景透明效果）怎么就不行呢？

 

附件借用了论坛狐友的窗口练习，在此谢谢。

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:绘制标签.foxdb

[此贴子已经被作者于2013-8-22 8:54:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/8/21 20:49:00 [只看该作者]

以下是引用石四在2013-8-21 20:34:00的发言：

 

另外这段代码 BeautifyControls(e.Form,"TextBox1,TextBox2")用于窗口里两个文本框控件(背景透明效果）怎么就不行呢？



把下面的代码，放到全局代码那里

参考例子

Public Sub BeautifyControls(ByVal e As WinForm.Form,ByVal _Values As String)
Dim Values() As String = _Values.Split(",")
For Index As Integer = 0 To Values.Length - 1
    Dim BeautifyControl As New BeautifyControl(e.Controls(Values(Index)))
Next

End Sub


Public Class BeautifyControl
    Private Control As WinForm.Control
    Private Label As WinForm.Label
    Public Sub New(ByVal _Control As WinForm.Control)

        Dim lbl As WinForm.Label
        lbl = _Control.Form.CreateControl("lable1", ControlTypeEnum.Label)
        lbl.Name = "lable-" & _Control.Name
        lbl.BackColor = Color.Transparent
        lbl.TextAlign = ContentAlignment.MiddleLeft
        _Control.Parent.AddControl(lbl)
        lbl.AutoSize = False
        lbl.SetBounds(_Control.Left, _Control.Top, _Control.Width, _Control.Height)
        lbl.Anchor = _Control.Anchor
        lbl.Dock = _Control.Dock


        Me.Control = _Control
        Me.Label = lbl
        Me.Control.Visible = False

        Dim ln As WinForm.Line = _Control.Form.CreateControl("lable1", ControlTypeEnum.Line)
        ln.Anchor = _Control.Anchor
        _Control.Parent.AddControl(ln)
        ln.Left = _Control.Left
        ln.Top = _Control.Top + _Control.Height - 16
        ln.Width = _Control.Width

        AddHandler lbl.BaseControl.Click, AddressOf Label_Click
        AddHandler lbl.BaseControl.VisibleChanged, AddressOf Label_VisibleChanged
        AddHandler Me.Control.BaseControl.Leave, AddressOf Control_Leave
    End Sub

    Private Sub Label_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Control.Visible = True
        Me.Control.Select()
        Me.Control.Form.Controls(Control.Name).BaseControl.SelectionLength = 0
        Me.Label.Visible = False
    End Sub

    Private Sub Label_VisibleChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Me.Label.Visible = True Then
            If Me.Control.Form.ExistControl(Control.Name) Then
                If Me.Control.BindingField = Nothing Then
                    Me.Label.Text = Me.Control.Form.Controls(Control.Name).Value
                Else
                    Me.Label.BindingField = Me.Control.BindingField
                End If
                Me.Label.ForeColor = Me.Control.ForeColor
            End If
        End If
    End Sub
    '当文本控件不是活动控件的时候发生
    Private Sub Control_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Label.Visible = True
        Me.Control.Visible = False
    End Sub
End Class
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/8/21 21:07:00 [只看该作者]

oh,my gad!

这么复杂，不抄袭大神，业余的怎么弄得出来！

我说呢，窗口事件代码那么一小段，没看到哪与下划线有关联，却出下划线效果，不科学啊。

 
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/8/21 21:22:00 [只看该作者]

以下是引用有点甜在2013-8-21 20:49:00的发言：

把下面的代码，放到全局代码那里

参考例子
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27736&authorid=0&page=2&star=1
Public Sub BeautifyControls(ByVal e As WinForm.Form,ByVal _Values As String)

窗口全局事件么？哪里？

 


此主题相关图片如下：qq截图20130821211918.png
按此在新窗口浏览图片

帮助文件说：如果采用全局代码，只需在全局事件Click中加入以下代码即可

但参考例子没看到全局事件有代码啊。

[此贴子已经被作者于2013-8-21 21:26:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/8/21 21:30:00 [只看该作者]

以下是引用石四在2013-8-21 21:22:00的发言：
参考例子
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27736&authorid=0&page=2&star=1
Public Sub BeautifyControls(ByVal e As WinForm.Form,ByVal _Values As String)


全局代码，新问题，另开一个列子提问哈。
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2013/8/21 21:40:00 [只看该作者]

以下是引用有点甜在2013-8-21 21:30:00的发言：


全局代码，新问题，另开一个列子提问哈。

哦，还真没碰过这一块。

例子是三个控件，如果两个控件，代码是否通用？那么多代码，够挖一阵子！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/8/21 21:44:00 [只看该作者]

以下是引用石四在2013-8-21 21:40:00的发言：

哦，还真没碰过这一块。

例子是三个控件，如果两个控件，代码是否通用？那么多代码，够挖一阵子！


多少个控件，都是通用的。
 回到顶部
总数 53 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询