精华内容
下载资源
问答
  • VB 控件随窗体自动调整大小,像窗口中的ListBox、Image、FileListBox、VB.Frame控件等,都可以随窗口的大小变化而变化,当用户拖动改变窗口大小时,这些控件的大小也会随之改变,这个功能的实现得益于自定义函数Form...
  • Picturebox控件加载图片的方法如下: ...如果将Picturebox控件的AutoSize属性设为True的话,可以让图片自动适应图片大小,但无法让图片自动适应图片框的大小。 解决方法有两种: 方法一:使用Paint...
    Picturebox控件加载图片的方法如下:
          Picbox1.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg")
    如果将Picturebox控件的AutoSize属性设为True的话,可以让图片框自动适应图片的大小,但无法让图片自动适应图片框的大小。
    解决方法有两种:
    方法一:使用PaintPicture方法,代码如下
          Picbox1.PaintPicture LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg"), 0, 0, Picbox1.ScaleWidth, Picbox1.ScaleHeight
    
    方法二: 使用Image控件,将其放入PictureBox中,并设其属性Stretch=True,使得图片自动适应image。代码如下
          Image2.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg", vbLPLarge, vbLPColor)

    1

     

     

     

     

     

     

     

    展开全文
  • 一劳永逸让VB自动改变控件大小 Private Sub Form_Load()//初始化设置  Picture1.AutoSize = True  Command1.Caption = ″显示网格″  Command2.Caption = ″取消网格″  Form1.Caption = ″显示网格图像演示程序...
  • vb自动调整控件的大小

    千次阅读 热门讨论 2013-11-17 21:26:01
    机房收费系统中有很多查询记录类的窗体用到了MSHFlexGrid控件。当没有调整该控件的大小时,查询结果可能会如...但是我刚开始没有注意到这个属性,所以就百度了自动调整MSHFlexGrid列宽的方法,需要自定义一个过程: Pu

    机房收费系统中有很多查询记录类的窗体用到了MSHFlexGrid控件。当没有调整该控件的大小时,查询结果可能会如图所示:


    而我们需要的是:


    这本来是一个很简单的调整MSHFlexGrid列宽的问题,只需要设置AllowUserResizing即可,如图:


    但是我刚开始没有注意到这个属性,所以就百度了自动调整MSHFlexGrid列宽的方法,需要自定义一个过程:

    Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWidth As Double = 0)
        Dim i, j As Integer
        Dim dblWidth As Double
        With gridCur
            For i = 0 To .Cols - 1
                dblWidth = 0
                If .ColWidth(i) <> 0 Then
                    For j = 0 To .Rows - 1
                        If frmCur.TextWidth(.TextMatrix(j, i)) > dblWidth Then
                            dblWidth = frmCur.TextWidth(.TextMatrix(j, i))
                        End If
                    Next
                    .ColWidth(i) = dblWidth + dblIncWidth + 100
                End If
            Next
        End With
    End Sub
    然后再调出 : Call AdjustColWidth(frmLineHis, myFlexGrid)
              这个过程的关键就是要知道form窗体有TextWidth方法 Textwidth方法则返回一个文本字符串的宽度值。

       因为知道了Textwidth方法,我们就能使任何输入内容为文本字符类控件自动调节到最适合宽度,因为还有TextHeight方法,我们就能调整任何输入内容为文本字符类控件自动调节到最适合高度。我们知道label控件有AutoSize属性,而把上述代码封装起来就是输入内容为文本字符类控件的AutoSize属性。

       问题虽小,但是有一个从特殊到一般思考过程。任何问题都能归类,任何解决问题的方法提升后都能解决一类问题!


    *自动调整MSHFlexGrid各列列宽为最合适的宽度参考文章:

    http://li25686686.blog.163.com/blog/static/3684873720105644729263/






    展开全文
  • 作用是在运行时刻自动对其它可视控件进行动态的位置/大小调整.这个控件实现的功能和VB.Net的窗体布局功能类似....例如―HW‖表示自动调整高度和宽度.TL的优先级高于HW,如果Tag同时包含T和H,则仅T有效.
  • 根据字符串的长度自动调整文本框的大小显示出来。自己研究了大半天终于做出来了,但是还是需要优化,因为我们的项目不适用。
  • VB6.0让图片自适应Picture图片大小

    万次阅读 2013-07-18 15:17:31
    Picture的AutoSize属性设为True的话可以让图片自动适应图片大小,但是图片不能适应图片大小;   Image的Stretch属性设为True的话可以让图片自动适应图像框大小。   如果仅仅是为了显示的话,那么用Image图像...
        Picture的AutoSize属性设为True的话可以让图片框自动适应图片大小,但是图片不能适应图片框大小;
        Image的Stretch属性设为True的话可以让图片自动适应图像框大小。

        如果仅仅是为了显示的话,那么用Image图像框就可以满足需求了,但是我还想获取图片中某个点的颜色。Picture1.Point(x,y)可以获取Picture1的(x,y)坐标处的颜色(注意单位默认不是像素,而是Twip。单位可在Picture1的ScaleMode属性中设置,设为Pixel就是以像素位单位了),但是Image不能用Point这个方法。
        所以才有了下面的这个方法,让图片适应图片框大小:
        先是用一个隐藏的Image或者Picture打开一个图片(注意如果是用Picture的话要把AutoRedraw属性设为True),然后在另一个可见的Picture上画图:Picture1.PaintPictureImage1.Picture, 0, 0, Picture1.Width,Picture1.Height,完成的功能就是吧Image1已经打开的图片画到Picture1上。
        下面是程序代码:
    Image1.Stretch = True
    Image1.Picture = LoadPicture("……")
    Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width,Picture1.Height

        顺便说一下,使用Picture1.Point(x,y)返回的是一个24位数,共3个字节,低位的1个字节是R,中间的1个是G,高位的1个字节是B。
    展开全文
  • vb.net控件随窗口大小调整
  • VB程序窗口调整 控件按比例缩放代码,非常有用,让程序最大化后不那么难看了
  • 当你的word文档中有大量图片,需要批量统一修改图片大小时,可以在你的word文档中新建里一个宏,把资料里的代码复制到你所建立的宏的代码区,运行代码即可批量修改图片尺寸
  • 最近同事开发中经常遇到使用字符串和ASCII对照,而且需要随时调整对话框大小,字体也需要跟着改变,遂向我提问,正好闲来无事,顺手用VB给做了个小程序,很典型的VB开发,对于小白来说正好可以学习一下创建VB工程,...
  • VB 限制调整窗口大小的最大值,我们根据SetWindowLong函数的说明 ,可写出一个函数,当用户拖动窗口时,控制窗口最大能拖动到什么大小,当达到最大值时,窗口就不能继续被拖大,我们定义一个函数,在打开这个VB窗口...
  • VB如何使控件位置和大小自动适应窗体变化的三种不同模式,非常实用,方便大家使用
  • VB.NET小程序:改变图片大小

    千次阅读 2017-03-09 23:31:26
    实现了图片大小的改变和保存。 末进初学,贴出来大家一起学习。

    原创文章,转载请注明出处!

    Code:

    Imports System.IO
    Public Class Form1
        Dim picBoxX, picBoxY, picX, picY, FormWith, FormHeight As Int32
        Dim num1, num2, num3, num4 As Int32
        Dim localFilePath, FilePathEx(), FilePath, newFileName As String

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            picBoxX = PictureBox1.Width
            picBoxY = PictureBox1.Height
            FormWith = Me.Width
            FormHeight = Me.Height
            NumericUpDown3.Value = 0
            NumericUpDown4.Value = 0
            NumericUpDown3.Maximum = 200  '最大两倍放大
            NumericUpDown4.Maximum = 200  '最大两倍放大
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim mystream As Stream
            'OpenFileDialog1.InitialDirectory = Application.StartupPath 'or System.IO.Directory.GetCurrentDirectory()
            OpenFileDialog1.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
            OpenFileDialog1.Filter = " 支持格式|*.bmp;*.gif;*.jpg;*.png|BMP 文件(*.BMP)|*.BMP|JPG 文件(*.JPG)|*.JPG|GIF 文件(*.GIF)|*.GIF|PNG 文件(*.PNG)|*.PNG"
            OpenFileDialog1.FilterIndex = 3
            OpenFileDialog1.RestoreDirectory = True


            If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
                mystream = OpenFileDialog1.OpenFile()
                If Not (mystream Is Nothing) Then
                    PictureBox1.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
                    Me.PictureBox1.ImageLocation = OpenFileDialog1.FileName
                    Me.TextBox1.Text = Me.PictureBox1.ImageLocation


                    PictureBox1.SizeMode = PictureBoxSizeMode.Zoom '缩放模式  


                    picX = PictureBox1.Image.Width
                    picY = PictureBox1.Image.Height
                    picBoxX = Me.PictureBox1.Width
                    picBoxY = Me.PictureBox1.Height
                    Label1.Text = "宽度已缩放为:" & CInt((picBoxX / picX) * 100) & "%; 高度已缩放为:" & CInt((picBoxY / picY) * 100) & "%"


                    NumericUpDown1.Maximum = picX + picX  '最大两倍放大
                    NumericUpDown2.Maximum = picY + picY  '最大两倍放大


                    NumericUpDown1.Value = picX.ToString
                    NumericUpDown2.Value = picY.ToString

                    num1 = picX
                    num2 = picY
                    num3 = 100
                    num4 = 100

                    NumericUpDown1.Value = num1.ToString
                    NumericUpDown2.Value = num2.ToString
                    NumericUpDown3.Value = num3
                    NumericUpDown4.Value = num4

                    mystream.Close()

                End If
            End If
        End Sub


        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            If TextBox1.Text <> "" Then
                PictureBox1.Image = System.Drawing.Image.FromFile(TextBox1.Text)
                If Button2.Text = "图片真实大小显示" Then
                    PictureBox1.AutoSize = True '缩放模式
                    Me.Width = picX + 60
                    Me.Height = picY + 60
                    Button2.Text = "图片缩放预览显示"
                    Label1.Text = "宽度已缩放为:100%" & "; 高度已缩放为:100%"
                ElseIf Button2.Text = "图片缩放预览显示" Then
                    PictureBox1.AutoSize = False
                    Me.Width = FormWith
                    Me.Height = FormHeight
                    PictureBox1.SizeMode = PictureBoxSizeMode.Zoom '缩放模式
                    Button2.Text = "图片真实大小显示"
                    Label1.Text = "宽度已缩放为:" & CInt((picBoxX / picX) * 100) & "%; 高度已缩放为:" & CInt((picBoxY / picY) * 100) & "%"
                End If
            Else
                MsgBox("请载入图片...")
            End If
        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            SaveFileDialog1.Filter = " 支持格式|*.bmp;*.gif;*.jpg;*.png|BMP 文件(*.BMP)|*.BMP|JPG 文件(*.JPG)|*.JPG|GIF 文件(*.GIF)|*.GIF|PNG 文件(*.PNG)|*.PNG"
            SaveFileDialog1.FilterIndex = 3
            SaveFileDialog1.RestoreDirectory = True

            localFilePath = Me.TextBox1.Text
            FilePathEx = localFilePath.Split("\\")
            FilePath = ""

            For i = 0 To FilePathEx.Length - 2
                FilePath &= FilePathEx(i) & "\"
            Next

            newFileName = Now.ToString("yyyymmmddHHmmss") & " Width_" & num1 & "_Height_" & num2 & " " & FilePathEx(FilePathEx.Length - 1)
            Try
                Dim saveImage As New System.Drawing.Bitmap(Me.PictureBox1.Image, num1, num2)
                saveImage.Save(FilePath & newFileName)
                PictureBox1.Image = System.Drawing.Image.FromFile(FilePath & newFileName)
                Label1.Text = "新图片" & newFileName & "已保存到桌面"
                If num1 < picBoxX And num2 < picBoxY Then
                    PictureBox1.SizeMode = PictureBoxSizeMode.Normal
                    PictureBox1.SizeMode = PictureBoxSizeMode.CenterImage
                Else
                    PictureBox1.AutoSize = True
                    Me.Width = num1 + 100
                    Me.Height = num2 + 180
                End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

        Private Sub NumericUpDown1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
            num1 = CInt(NumericUpDown1.Value)
        End Sub
        Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
            num2 = CInt(NumericUpDown2.Value)
        End Sub

        Private Sub NumericUpDown3_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
            NumericUpDown1.Value = (CInt(NumericUpDown3.Value) / 100) * picX
            num1 = NumericUpDown1.Value
        End Sub
        Private Sub NumericUpDown4_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
            NumericUpDown2.Value = (CInt(NumericUpDown4.Value) / 100) * picY
            num2 = NumericUpDown2.Value
        End Sub


    End Class

    程序界面1:


    程序界面2:




    展开全文
  • vb语言输出excel并设置自动调整各列宽度
  • 控件按比例随窗体大小改变而变化.控件大小不会因为窗体最大化而改变布局,不会影响美观
  • winform窗体内容自动调整大小

    千次阅读 2018-07-13 10:10:10
    private void SetControls(float x, float y, Control cons)//按比例调整窗体大小 { foreach (Control con in cons.Controls) { string[] mytag=con.Tag.ToString().Split(new char[]{':'}); // string[] ...
  • 根据给定的长度,自动调整字体的大小,以适应如edit.text,label.caption等这类显示框,希望能帮助更多人.
  • 自定义控件里面有一个picturebox和一个openfiledialog,可以显示图片和名字,但设置属性可以调节图片大小的属性怎么写,
  • VB窗口大小,控件自动调整的问题

    千次阅读 2010-12-15 17:21:00
    很多人 还老在问VB窗口大小的问题 不多废话了,贴代码 Option Explicit Private nWndHeight As Long Private nWndWidth As Long Private nControl As Long Private lpTop() As Long Private...
  • Visual Basic控件随窗体大小改变工程源代码
  • 在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小,如: Private Sub Form_Resize() Dim H, i As Integer On Error Resume Next Resize_ALL Me 'Me是窗体名,Form1,Form2等等都可以 End Sub 在...
  • VB 窗体控件元素自适应窗体大小变化的设置实例 VB窗体控件元素自适应窗体大小变化的设置实例,也就是让VB窗体中的控件元素,比如TextBoX之类的,会随依附窗体的大小变化而变化 ,窗体被拖大,它会跟着大,窗体小则它...
  • vb.net的资料太少,查阅RichTextBox调整字体大小的方法没找到,看了几篇C#的介绍,有的写的好复杂,在一篇短文中找到解决方法: ‘缩小字号 Dim fonOld, fonNew As Font fonOld = rtbMain.Font Try fonNew = ...
  • 使图片自动适应image控件的大小

    千次阅读 2019-09-29 20:04:31
    stretch设为true 转载于:https://www.cnblogs.com/breezeblew/archive/2009/03/08/1406202.html
  • QRMark二维码调整大小的方法,QRMark二维码调整大小的方法,QRMark二维码调整大小的方法,亲测可用!!!
  • 使vb窗体可以自适应屏幕分辨率的大小
  • 根据窗体自动调整窗体内控件大小 注:实用,可以直接引用 ※ 用户控件制作讲解与实例 ※ VB 制作 OCX 控件的步骤 ※ 【引用】窗口处理技巧大全 vb( 窗体控件 ) ※ VB 让控件可以当标题栏拖动 ※ VB...
  • 源于应邀回复https://bbs.csdn.net/topics/394701596?page=1#post-409337377 Sub 行高列宽() 列表.AutoResizeRows(DataGridViewAutoSizeRowsMode.AllCells) '...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 7,979
精华内容 3,191
关键字:

vb图片自动调整大小