Foxtable(狐表)用户栏目专家坐堂 → 逛逛老师日历关于查看跟多窗口显示不全问题


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

主题:逛逛老师日历关于查看跟多窗口显示不全问题

帅哥哟,离线,有人找我吗?
李小胖
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2516 威望:0 精华:0 注册:2017/1/8 15:53:00
逛逛老师日历关于查看跟多窗口显示不全问题  发帖心情 Post By:2017/6/2 9:08:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:查看更多.png
图片点击可在新窗口打开查看  这个是逛逛老师查看更多的窗口, 最下面一排的提醒有一点显示不全面 请问怎么修改代码呢?



代码在此:

  'Windows 窗体设计器所必需的
        Private components As System.ComponentModel.IContainer

        '注意: 以下过程是 Windows 窗体设计器所必需的
        '可以使用 Windows 窗体设计器修改它.
        '不要使用代码编辑器修改它.
        <System.Diagnostics.DebuggerStepThrough()>
        Private Sub InitializeComponent()
            Me.SuspendLayout()
            '
            'Form1
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(109, 217)
            Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
            Me.Name = "Form1"
            Me.Text = "Form1"
            Me.ResumeLayout(False)
        End Sub
        Private Sub Class2_FontChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.FontChanged
            _my更多 = Nothing
        End Sub

        Private Sub Class2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            _my更多 = Me
        End Sub
    End Class


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/2 9:14:00 [只看该作者]

红色代码改一下

 

 Dim nHeight As Integer = drs.Count * _事务标签_高度 + 25


 回到顶部