VB.NET求帮忙！...

Posted 2023-05-09

窗体无最大化按钮和最小化按钮，在窗体装入时，在窗体的标题栏显示“我的VB.NET程序”，并在窗体中装入一副图画作为背景，当用户单击窗体，在标题栏显示“单击窗体”，在窗体上显示“欢迎使用VB.NET”，当用户双击窗体，在标题栏显示“双击窗体”，在窗体上显示“谢谢使用！”。

新建窗体，把maximizebox属性和MinimizeBox 属性设为false，再添加一个Label1放置文字一个Picturebox1放图片。
在窗体的load事件中：
Private Sub Form1_Load() Handles Me.Load
Text="我的VB.NET程序"
PuctureBox1.Image=Image.FromFile(图片路径如e:\\pic.jpg)
End Sub

窗体Click事件：
Private Sub Form1_Click() Handles Me.Click
Text="单击窗体"
Label1.Text="欢迎使用VB.NET"
End Sub

窗体DoubleClick事件
Private Sub Form1_DoubleClick() Handles Me.DoubleClick
Text="双击窗体"
Label1.Text = "谢谢使用！"
End Sub 参考技术A

Public Class Form1

    Dim 程序路径 As String

    Dim 鼠标按下次数 As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        程序路径 = Application.StartupPath '设置程序的路径

        'System.Environment.CurrentDirectory; 

        '例: c:/test/ 

        'Application.ExecutablePath;(包括名称） 

        '例: c:/test/myapp.exe 

        'Application.StartupPath;（不包括名称） 

        '例: c:/test/ 

        Me.BackgroundImage = CType(Image.FromFile(程序路径 & "\\试验图片.jpg", True), Bitmap) '加载背景图片

        Me.Text = "我的VB.NET程序" '设置程序标题

        Me.MinimizeBox = False '设置窗口无最小化按钮

        Me.MaximizeBox = False '设置窗口无最大化按钮

        Me.AutoSizeMode = Windows.Forms.AutoSizeMode.GrowAndShrink '设置窗口不能进行拖拽变化窗口大小

    End Sub

    '这下面加了个时间循环  每秒检测鼠标 按下次数  再进行操作 

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

        鼠标按下次数 = e.Clicks '记录鼠标按下次数

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Try

            Select Case True

                Case 鼠标按下次数 = 2 'And 鼠标弹起次数 = 2

                    Label1.Text = "双击窗体"

                    Me.Text = "谢谢使用！"

                Case 鼠标按下次数 = 1 ' And 鼠标弹起次数 = 1

                    Label1.Text = "单击窗体"

                    Me.Text = "欢迎使用VB.NET"

                Case Else

                    鼠标按下次数 = 0

            End Select

        Catch ex As Exception

        End Try

    End Sub

    '-----这两个事件配合使用也可以用  就是双击时  它会执行单击一次的操作 再执行双击操作 没什么好的效果

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

        ' Label1.Text = "单击窗体"

        'Me.Text = "欢迎使用VB.NET"

    End Sub

    Private Sub Form1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick

        'Label1.Text = "双击窗体"

        'Me.Text = "谢谢使用！"

    End Sub

    '-----这两个事件配合使用也可以用  就是双击时  它会执行单击一次的操作 再执行双击操作 没什么好的效果

End Class

求大神指点 vb.net 的 FlowLayoutPanel1 怎么才能自由排列位置呢?

求大神指点 vb.net 的 FlowLayoutPanel1 怎么才能自由排列位置呢?

我放图片框进去 总是自动给我排列了. 我想自己排列 需要怎么设置呀?

参考技术A 您好，参考代码：
private void ComboBox_SelectionChanged(object sender, SelectionChangedEventArgs e)

ComboBox combobox = sender as ComboBox;
然后你可以用combobox.SelectedValue去执行自己的逻辑

flowLayoutPanel貌似不能强制换行吧，我是没成功过，不知道谁能做到，希望也能告诉我。
现在可以折中一下：
一、1结束后，换一行新建一个flowLayoutPanel，再把2放到新建的里面。
或
二、1结束后，在当前行填充没有颜色的控件，直至此行末尾，然后换行放置2。本回答被提问者采纳