关于Form的长宽改变～ - 编程论坛

#2

wube2012-05-02 12:19

MSDN上的解释我实在看不懂...

程序代码：

Private Sub UpDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpDown.Click
    Dim frmMain As Object
    Dim UpDown As Object
'UPGRADE_WARNING: 无法解析物件 UpDown.Caption 的预设属性。按一下以取得详细资讯: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
    If UpDown.Caption = "↑" Then
'UPGRADE_WARNING: 无法解析物件 UpDown.Caption 的预设属性。按一下以取得详细资讯: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        UpDown.Caption = "↓"
'UPGRADE_WARNING: 无法解析物件 frmMain.Height 的预设属性。按一下以取得详细资讯: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        Height.GetType(frmMain) '1700
'UPGRADE_WARNING: 无法解析物件 UpDown.ToolTipText 的预设属性。按一下以取得详细资讯: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        ToolTipText.SetToolTip(CType(UpDown, Control), "Hide Information")
    ElseIf UpDown.Caption = "↓" Then
'UPGRADE_WARNING: 无法解析物件 UpDown.Caption 的预设属性。按一下以取得详细资讯: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        UpDown.Caption = "↑"
'UPGRADE_WARNING: 无法解析物件 frmMain.Height 的预设属性。按一下以取得详细资讯: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        frmMain.Height = 100 '7170
        ToolTipText.SetToolTip(CType(UpDown, Control), "Show Information")
    End If
End Sub

#3

不说也罢2012-05-02 12:38

.NET中貌似没有UPDOWN组件，取而代之的是NumericUpDown控件。如果使用不习惯，可以做两个带上下箭头图标的按钮控件替代。

程序代码：

Public Class Form1

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Me.Size = New Size(Me.Width, NumericUpDown1.Value)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With NumericUpDown1
            .Maximum = Me.Height
            .Value = Me.Height
            .Minimum = 100
            .Increment = 2
        End With
    End Sub
End Class

#4

wube2012-05-02 14:09

你误会了UpDown是button的名字,NumericUpDown控件好像是VB6的COMBOLIST

when UpDown.Click()
if UpDown.Caption = "↑"
    UpDown.Caption = "↓"
    UpDown.TooltipText="Hide Information"
    并触发Form的画面大小改变
elseif UpDown.Caption = "↓"
    UpDown.Caption = "↑"
    UpDown.TooltipText="Show Information"
    并触发Form的画面大小改变
enfif

#5

wube2012-05-02 14:11

贴的代码是VB6的源码用2008转出来的～
看都看不懂它在写啥～

ToolTipText.SetToolTip(CType(UpDown, Control), "Hide Information")
这段还是我手动改的～原本转出来的更夸张～

附带VB6源码

程序代码：

Private Sub UpDown_Click()
    If UpDown.Caption = "↓" Then
        UpDown.Caption = "↑"
        frmMain.Height = 7170 '1700
        UpDown.ToolTipText = "Hide Information"
    ElseIf UpDown.Caption = "↑" Then
        UpDown.Caption = "↓"
        frmMain.Height = 1700 '7170
        UpDown.ToolTipText = "Show Information"
    End If
End Sub

[ 本帖最后由 wube 于 2012-5-2 14:14 编辑 ]