精华内容
下载资源
问答
  • VB使用滚动条实现图形的缩放,对图片进行自动控制
  • 这样,通过滚动条控制文本框背景色的目的达到了。  4、在“通用”选项中定义全局全量,用来储存文本框的原始尺寸:  Dim Iwidth As Integer  Dim Iheight As Integer  5、用来改变文本框尺寸的竖向...

    三、程序设计:

        1、创建如图一的程序界面。

        文本框的属性:
      Name:TxtContent  Text:None

        三个表示色彩的标签:

        红色标签,Name:LblRed  Caption:红色
      绿色标签,Name:LblGreen  Caption:绿色
      蓝色标签,Name:LblBlue  Caption:蓝色

        三个表示色彩的横向滚动条:
      Min:0  Max:255  SmallChange:1  LargeChange:5

        显示“大小”字样的标签:
      Name:LblSize  Caption:大小

        对文本框大小进行控制的竖向滚动条:
      Name:VsbSize  Min:0  Max:100  SmallChange:1  LargeChange:5

        用于显示大小变化尺寸的标签:
      Name:LblShow  Caption:None

        2、双击红色滚动条,在弹出的程序代码窗口中输入:

        Private Sub HsbRed_Change()
      TxtContent.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
      End Sub

        另外,就 HsbRed 的 Scroll 事件也输入上面的代码:

        Private Sub HsbRed_Scroll()
      TxtContent.BackColor = RGB(HsbRed.Value, HsbGreen.Value, HsbBlue.Value)
      End Sub

        3、同理所得,在绿色与蓝色滚动条中输入相应代码。这样,通过滚动条控制文本框背景色的目的达到了。

        4、在“通用”选项中定义全局全量,用来储存文本框的原始尺寸:

        Dim Iwidth As Integer
      Dim Iheight As Integer

        5、用来改变文本框尺寸的竖向滚动条:

        Change 事件:
      Private Sub VsbSize_Change()
      TxtContent.Width = Iwidth * (VsbSize.Value / 100)
      TxtContent.Height = Iheight * (VsbSize.Value / 100)
      LblShow.Caption = VsbSize.Value & "%"
      End Sub

        Scroll 事件:
      Private Sub VsbSize_Scroll()
      TxtContent.Width = Iwidth * (VsbSize.Value / 100)
      TxtContent.Height = Iheight * (VsbSize.Value / 100)
      LblShow.Caption = VsbSize.Value & "%"
      End Sub

        6、调试:

        按 F5 键进行调试,发现文本框的尺寸无法调整。这是因为,没有在初始状态下将原文本框的宽度、高度赋值给变量。

        在 Form 的 Load 事件中输入以下代码:

        Private Sub Form_Load()
      Iwidth = TxtContent.Width
      Iheight = TxtContent.Height
      LblShow.Caption = "100%"
      End Sub

    详细代码如下:

    Dim Iwidth As Integer
    Dim Iheight As Integer

    Private Sub Form_Load()
        Iwidth = TxtContent.Width
        Iheight = TxtContent.Height
        LblShow.Caption = "100%"

    End Sub

    Private Sub hsbblue_Change()
    TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
    End Sub

    Private Sub hsbblue_Scroll()
    TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
    End Sub

    Private Sub hsbgreen_Change()
    TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
    End Sub

    Private Sub hsbgreen_Scroll()
    TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
    End Sub

    Private Sub hsbred_Change()
    TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
    End Sub

    Private Sub hsbred_Scroll()
    TxtContent.BackColor = RGB(hsbred.Value, hsbgreen.Value, hsbblue.Value)
    End Sub

    Private Sub VsbSize_Change()
    TxtContent.Width = Iwidth * (VsbSize.Value / 100)
    TxtContent.Height = Iheight * (VsbSize.Value / 100)
    LblShow.Caption = VsbSize & "%"
    End Sub

    Private Sub VsbSize_Scroll()
    TxtContent.Width = Iwidth * (VsbSize.Value / 100)
    TxtContent.Height = Iheight * (VsbSize.Value / 100)
    LblShow.Caption = VsbSize & "%"
    End Sub
     

    展开全文
  • 滚动条设置控件格式

    2021-06-13 07:30:02
    excel2013中插入滚动条控件滚动窗格如何设置我想在excel中插入滚动条,设置为能够像excel...excel滚动条设置控件格式里面对象位置无法选大小、...这里的改变是指如果你的单元格行高或者列宽小于控件的行高和列宽 控...

    excel2013中插入滚动条控件滚动窗格如何设置

    我想在excel中插入滚动条,设置为能够像excel自带的滚动条那样滚动单元点击开发工具-插入,选择滚动条。 Excel版本参考:2013

    点击开发工具-插入,滚动条;

    5eb1328ce03fe9b8517da1548dd4b363.png

    右击滚动条-设置控件格式,单元格链接(选择一个单元格),确定。

    excel滚动条设置控件格式里面对象位置无法选大小、...这里的改变是指如果你的单元格行高或者列宽小于控件的行高和列宽 控件就会和缩小和单元格一致 但是如果单元格大列宽比你自己原本控件的的列宽,控件是不可以再扩大的。

    excel表格怎么添加滚动条

    方法/步骤 在电脑上找到Microsoft Office,打开excel。 新建一个excel表格,点击『插入』选项 在『插入』选项里找到滚动条选框按钮,如果没有点击office按钮添加 打开『excel选项』,选择『自定义』,选择『开发工具选项卡』。

    如何在Excel中加入滚动条控件在Excel中加入一个滚动条来控制另一个单元格中数值,单元格中的数值随滚无需写编码,视图-工具栏-窗体勾选,调用出窗体控件。 点滚动条,在你需要滚动的区域画出滚动条,右键设置控件格式,设置步长及单元格连接即可。

    EXCEL中如何制作滚动条控件控制的动态图表?

    此图取自EXCEL 2013的Monthly college budget模板,图中可以通过拖动滚建立窗体控件 1.点击开发工具——插入——滚动条窗体控件。 2.右击——设置控件格式。 最小值——1月 最大值——12月 单元格链接——D2 定义名称建立动态数据源 3.点击公式——名称管理器。 4.月份的引用=OFFSET(Sheet1。$A$2,1,,Sheet1。

    excel控件的“设置控制格式"怎么没有”控制"这个标签在EXCEL窗口,如果你使用的“窗体”工具栏中的控件,里面有“控制”选项,如果使用的是“控件工具箱”中的控件,在右键菜单中就找不到“控制”选项了,但它的右键菜单中有一个“属性”选项,你可以点开它,会出现的一个窗口,其中的“max\min\linkedcell\sm

    Excel VBA编程 数值调节钮和滚动条控件

    ExcelVBA编程数值调节钮和滚动条控件当组合框中的值为数值型列表项,且列表项目过多,此时,用户可以使用数值调节钮来代替组合框。另外,通过使用滚动条按控件,可以在应用程序或控件中浏览较长的项目。1.数值调节钮控件数值调节钮控件用来输入

    vb.net 滚动条控件使用方法

    我想做一个窗口,看起来有有半个屏幕这么大,但实际有好几个屏幕这么大你可以使用用一个picturebox来完成。 ==界面设计== 如图,图片框名为Pic,横向滚动条名为HS,纵向滚动条名为VS。 将你的窗口内容放入Pic中。此时,Pic的大小就是你内容的大校也就是说,Pic的大小由你来设置。 ==代码编写== 滚动条的属性设置将会

    PPT中滚动条控件的使用方法

    视图-工具栏-控件工具箱 会出现一个工具栏 点"其他控件" 滚动条向下拉 点"windows media player" 拉出一个windows media player的窗口 右键点“属性” 然后出现一个程序设计时一样的窗口 点"自定义" 然后右边的空格中出现省略号的图标吧 点这

    树形控件添加滚动条就是树形界面如果长度过长右边会出现一个滚动条可以拖动请问如何实现。v在界面设计窗口,找到树形控件的属性窗口,选择 auto vscroll。

    展开全文
  • Winform:关于滚动条美化

    千次阅读 2015-09-02 00:18:57
    先来点直观的效果,这是偶新做的一个UI中的一条滚动条,这条滚动条可独立应用于各种有下拉框的控件,不简单吧。。。。嘿嘿。   换了一家新公司马上就接到两个UI的制作,好久没做这种UI美化了,嘿嘿!很有...


    先来点直观的效果,这是偶新做的一个UI中的一条滚动条,这条滚动条可独立应用于各种有下拉框的控件,不简单吧。。。。嘿嘿。

     

    换了一家新公司马上就接到两个UI的制作,好久没做这种UI美化了,嘿嘿!很有感觉哦。。。。

    里面有这么一条滚动条花了比较多时间,不过最后做出来了,真好。

    但这个UI在偶的直接上司来了之后被否定掉了,记录一下吧。嘿嘿

     

     

    滚动条美化有两种方案

    1、截获Windows消息,然后进行重绘滚动条等操作。。

    CODEPROJECT在有一些C++的代码记录着。

    而某牛人在http://www.tctl.com.cn/accp/1521/1522/242362.html上也记录着这么一段话:” 我提供基本的思路:子类换(SubClass)是必须的(截获消息并处理),HookAPI也是必须的。由于ListView中的滚动条是内建的,而不是 单独的ScrollBar,所以处理比较麻烦。首先是处理消息,其次是APIHook。首先说消息处理。我们要处理的消息又 WM_PAINT,WM_NCPAINT,WM_HSCROLL,WM_VSCROLL,WM_HITTEST,WM_NCMOUSEMOVE等。在 WM_NCPAINT的时候,系统需要绘制滚动条,这时候,如果消息的参数wParam是1是,表示一个需要绘制整个区域,那么,我们必须从中Clip掉 滚动条的区域,然后传给原来的消息处理函数。WM_HSCROLL,WM_VSCROLL中,我们需要改变其样式,将滚动条样式去掉,欺骗 Windows,然后调用原来的窗口处理过程。WM_HITTEST中,需要处理的是鼠标的点击位置,这样的自己判断。WM_NCMOUSEMOVE中需 要处理的是滚动条的拖动,需要自己计算滚动条的位置。然后发送消息 SendMessage(AHandle,MW_HSCROLL,MAKEWPARAM(SB_THUMBTRACK,m_iPos),0);这些消息中 都需要自己绘制滚动条。”(看得懂他的意思,却比较难实现,这种熟知API才行)http://blog.csdn.net/superarhow/archive/2006/07/27/984338.aspx这里有对上面那个说法的验证,感动啊。。。。。。。。不过是Delphi代码。

     

    2、添加自己的滚动条,覆盖ListView本身产生的那个滚动条,然后把相应的事件联系起来。即自已做一条滚动条,再把控件的滚动条隐藏掉,通过这条滚动条再去控件控件的滚动条,KUGOO的滚动条即是采取这种方案,听说QQ也是,用SPA++看一下就知道了,是两个不同的窗口句柄。(其实这种好理解,但也是得熟知API。。。。)

     

    介绍第二种方法

    首先参考codeproject的一条滚动条,就是采取这个方案,使用USERCONTROL画了一条出来了http://www.codeproject.com/KB/miscctrl/customscrollbar.aspx

     

    但他比较细致,比较麻烦,需要画好多个地方,而本人就在其也改改,只需三张图片,向上按钮,向下按钮,还有中间的拇指按钮。中间的通道自定一种色彩就可以了。

     

    修改之后的ONPAINT函数

     

    e.Graphics.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor;

    画上面的按钮

    if (UpArrowImage != null)

    {

    e.Graphics.DrawImage(UpArrowImage, new Rectangle(new Point(0, 0), new Size(this.Width, UpArrowImage.Height)));

    }

     

    Brush oBrush = new SolidBrush(moChannelColor);

    Brush oWhiteBrush = new SolidBrush(Color.FromA#ffffff);

    画两条边框

    //draw channel left and right border colors

    e.Graphics.FillRectangle(oWhiteBrush, new Rectangle(0, UpArrowImage.Height, 1, (this.Height - DownArrowImage.Height)));

    e.Graphics.FillRectangle(oWhiteBrush, new Rectangle(this.Width - 1, UpArrowImage.Height, 1, (this.Height - DownArrowImage.Height-UpArrowImage.Height)));

    画通道

    //draw channel

    e.Graphics.FillRectangle(oBrush, new Rectangle(0, UpArrowImage.Height, this.Width, (this.Height - DownArrowImage.Height - UpArrowImage.Height)));

     

    //draw thumb

    int nTrackHeight = (this.Height - (UpArrowImage.Height + DownArrowImage.Height));

    float fThumbHeight = ((float)LargeChange / (float)Maximum) * nTrackHeight;

    int nThumbHeight = (int)fThumbHeight;

     

    if (nThumbHeight > nTrackHeight)

    {

    nThumbHeight = nTrackHeight;

    fThumbHeight = nTrackHeight;

    }

    float fSpanHeight = (fThumbHeight - (ThumbMiddleImage.Height + ThumbTopImage.Height + ThumbBottomImage.Height)) / 2.0f;

    int nSpanHeight = (int)fSpanHeight;

     

    int nTop = moThumbTop;

    nTop += UpArrowImage.Height;

     

    e.Graphics.DrawImage(ThumbMiddleImage, new Rectangle(0, nTop, this.Width , nThumbHeight));

     

     

    nTop += ThumbMiddleImage.Height;

    if (DownArrowImage != null)

    {

    e.Graphics.DrawImage(DownArrowImage, new Rectangle(new Point(0, (this.Height - DownArrowImage.Height)), new Size(this.Width, DownArrowImage.Height)));

    }

     

    其他的参考作者的,就画出了一条滚动条了。。。。。

     

    接着,怎么去控制树型控件的SCROLLBAR呢。。。。

     

    这里需要用到几个API

     

    [DllImport("user32.dll")]

    [returnMarshalAs(UnmanagedType.Bool)]

    public static extern bool GetScrollInfo(IntPtr hwndint fnBarref SCROLLINFO lpsi);

     

    [DllImport("user32.dll")]

    public static extern int SetScrollInfo(IntPtr hwndint fnBar, [Inref SCROLLINFO

    lpsibool fRedraw);

     

    直接给代码算了

     

    获取其信息的

    public SCROLLINFO tvImageListScrollInfo

    {

    get

    {

    SCROLLINFO si = new SCROLLINFO();

    si.cbSize = (uint)Marshal.SizeOf(si);

    si.fMask = (int)(ScrollInfoMask.SIF_DISABLENOSCROLL | ScrollInfoMask.SIF_ALL);

    Win32API.GetScrollInfo(tvImageList.Handle, (int)ScrollBarDirection.SB_VERTref si);

    return si;

    }

    }

    设置可见与否

    private void SetImageListScrollVisible()

    {

    SCROLLINFO info = tvImageListScrollInfo;

     

    tvscroll.Minimum = info.nMin;

    tvscroll.Maximum = Convert.ToInt32(info.nMax + 1);

    tvscroll.LargeChange = (int)info.nPage;

    tvscroll.SmallChange = 7; //这里是根据每一项的大小而定的

    if (tvImageListScrollInfo.nMax > 0)

    {

    tvscroll.Visible = true;

    }

    else

    {

    tvscroll.Visible = false;

    }

    }

    当鼠标滚动时,设置该滚动条

    private void SetImageListScroll()

    {

    SCROLLINFO info = tvImageListScrollInfo;

    if (info.nMax > 0)

    {

    int pos = info.nPos - 1;

    if (pos >= 0)

    {

    tvscroll.Value = pos;

    }

    }

    }

    当滚动条滚动时,通知控件也跟着滚动吧。。。

    SCROLLINFO info = tvImageListScrollInfo;

    info.nPos = curValue;

    Win32API.SetScrollInfo(tvImageList.Handle, (int)ScrollBarDirection.SB_VERTref infotrue);

    Win32API.PostMessage(tvImageList.HandleWin32API.WM_VSCROLLWin32API.MakeLong((short)Win32API.SB_THUMBTRACK, (short)(info.nPos)), 0);

     

     

    等等,也就完成了一个自定义的树型控件了咧。。。。。。。。

     

    写得好没激情呀,可能太久没写的关系吧。。。。

    介结几个API吧

    GetScrollInfo-函数功能

    该函数找到滚动条的参数,包括滚动条位置的最小值、最大值,页面大小,滚动按钮的 位置,

    函数原型:BOOL GetScrolllnfo(HWND hWnd,int fnBar,LPSCROLLINFO lpsi);

    参数:

    hWnd:滚动条控制或有标准滚动条的窗体句柄,由fnBar参数确定。

    fnBar:指定待找回滚动条参数的类型,此参数可以为如下值,其值含义:

    SB_CTL:找回滚动条控制参数。其中参数hwnd一定是处理滚动条控制的句柄。

    SB_HORZ:找回所指定窗体的标准水平滚动条参数。

    SB_VERT:找回所指定窗体的标准垂直滚动条参数。

    lpsi:指向SCROLLINFO结构。在调用Getscrolllofo函数之前,设置SCROLLINFO结构中cbSize成员以标识结构 大小,设置成员fMask以说明待找回的滚动条参数。在运行之前,函数复制结构中适当的成员所指定的参数。

    成员fMask可以是如下值:

    SIF_PAGE:复制滚动页码到由lpsi指向的SCROLLINFO结构的nPage成员中。

    SIF_POS:复制滚动位置到由lpsi指向的SCROLLINFO结构的nPos成员中。

    GetScrollInfo-相关资料

    SIF_RANGE:复制滚动范围到由lpsi指向的SCROLLINFO结构的nMin和nMax成员中。

    SIF_TRACKPOS:复制当前滚动盒跟踪位置到由nTrackPos指向的SCROLLINFO结构的 nPage成员中。

    返回值:如果函数找到任何一个值,那么返回值为非零;如果函数没有找到任何值,那么返回值为零;

    注意:Getscrolllnfo函数尽管WM_HSCROLL和WM_VSCROLL指出了滚动条位置消息,却仅提供了16位数据,而函数 SetScrollnfo和GetScrollnfo则提供了32位的滚动条数据。因而,当应用程序在处理WM_HSCROLL或 WM_VSCROLL时,要获得32位滚动条位置的数据时, 则要调用Getscrolllnfo函数。     在WM_HSCROLL或WM_VSCROLL消息中SB_THUMBTRACK通告过程中,为了获得32位的滚动盒位置,需要调用 GetScrolllnfo函数以得到结构SCROLLINFO成员fMask中的SCROLLINFO值。函数返回在结构SCROLLINFO成员nTrackPos中指出的滚动盒跟踪位置的值。这将允许当用户移动滚动盒时能得到其位置。

    SetScrollInfo

    函数功能:该函数设置滚动条参数,包括滚动位置的最大值和最小值,页面大小,滚动按钮的位置。如被请求,函数也可以重画滚动条。

    函数原型:int SetScrollInfo(HWND hWnd;int fnBar,LPSCROLLINFO lpsi,BOOL fRedraw);

    参数:

    hWnd:滚动条控制或带标准滚动条的窗体句柄,由fnBar参数决定。

    fnBar:指定被设定参数的滚动条的类型。这个参数可以是下面值,含义如下:

    SB_CTL:设置滚动条控制。而参数hwnd必须是滚动条控制的句柄。

    SB_HORZ:设置所给定的窗体上标准水平滚动条参数。

    SB_VERT:设置所给定的窗体上标准垂直滚动条参数。

    IPBI:指向SCROLLINFO结构。在调用SetScrognfo之前,设置 SCROLLINFO结构中cbSize成员以标识结构大小,设置成员fMask以说明待设置的滚动条参数,并且在适当的成员中制定新的参数值。成员 fMask可以为下面所列复合值,含义如下:

    SIF_DfSABLENOSCROLL:如果滚动条的新参数使其为没必要,则使滚动条无效而不再移动它。

    SIF_PAGE:设置滚动页码值到由Ipsi指向的SCROLLINFO结构的nPage成员中。

    SIF_POS:设置滚动位置值到由lpsi指向的SCROLLINFO结构的nPos成员中。

    SIF_RANGE:设置滚动范围值到由lpsl指向的SCROLLINFO结构的nMin和nMax成员中。

    fRedraw:指定滚动条是否重画以反映滚动条的变化。如果这个参数为TRUE,滚动条将被重画,否则不被重画。

    返回值:返回值是滚动盒的当前位置。

    注意:SetScrolllnfo函数执行任务是检查SCROLLINFO结构中由成员 nPage和nPos值的范围。成员uPage值必须从0到nMax- nMin+1,成员nPos必须是在nMin和nMax-nMax-max(nPage C1,0)之间的指定值。如果任何一个值超过了这个范围,函数将在指定范围内为它设置一个值。

    在Windows CE 2.0中,如果在参数lpsi中指定一个NULL指针,Setscrohnfo则返回0,而不返回滚动盒的当前位置。

     

    控制控件上移下移还可以这样:

    PostMessageA(treeView1.Handle, WM_VSCROLL,1, 0);

    PostMessageA(treeView1.Handle, WM_VSCROLL,0, 0);

    发送一条移一次。。。。。。。。这是比较标准的WINDOWS方式,但有时老控制不准。。。主要是移得太快的话有时有些消息老丢了就不准确了。

     

    如果对这个控制滚动条还不是很理解,还可以考虑这里,但是是VB。NET的

    http://www.codeproject.com/KB/vb/VbNetScrolling.aspx

    http://www.codeproject.com/KB/vb/APIScroll.aspx

    http://www.codesky.net/article/doc/200309/200309145113524.htm

     

    这里还有一篇介结滚动条的几个比较主要的属性的,像那些MAXCHANGE

    http://www.codeproject.com/KB/miscctrl/understandingScrollbars.aspx

     

    Setting these two properties adjusts the scrollbar so that the thumb correctly reflects the viewable "page" proportional to the entire document breadth or width. The following equation illustrates the relationship between LargeChange and Maximum to the thumb length and scrollbar length (I'm using length here to reflect one dimension, width or height):

    Collapse

    LargeChange     Thumb Length

    ----------- = ------------

    Maximum       Track Length

     

    以上等等,就是一条自定义滚动条的相关知识了,哦,还差隐藏控件的滚动条。。。这个暂时实现不了,不过直接把你的覆盖下去就可以了哦。

    展开全文
  • [VB.NET]控制图形移动

    2008-12-02 20:51:00
    控制图形移动 实例说明在本实例中,我们将使用VScrollBar控件和HScrollBar控件来控制图片的移动,我们还可以设置移动的间距大小。程序运行结果如图56-1所示。图56-1 运行结果技术要点<!--google_ad_client = "pub-...
    控制图形移动 
    

    实例说明

    在本实例中,我们将使用VScrollBar控件和HScrollBar控件来控制图片的移动,我们还可以设置移动的间距大小。程序运行结果如图56-1所示。

    图56-1 运行结果

    技术要点

    <script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

    l 控制图片移动

    l 直接拖动图片

    l 更改ScrollBar控件的移动间距大小

    实现过程

    ■ 新建项目

    打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"ScrollBarCtl",然后选择保存路径。单击"确认"。

    ■ 添加控件

    向当前窗体上添加一个GroupBox控件,在GroupBox控件上放置六个Label控件和两个ComboBox控件;然后再添加一个Picture控件,一个VScrollBar控件和一个HScrollBar控件和六个Label控件。按照图56-1的运行结果排列好位置。

    ■ 设置属性

    对窗体上的控件进行属性设置。详细情况如表56-1所示。

    表56-1 窗体各控件的属性值

    窗体/控件 属性 值

    PictureBox Picture Human.jpg

    ComboBox1 Items 1,2,3,4,5

    ComboBox1 Itmes 5,10,20,50

    其余控件 Text 跟界面一致

    ■ 添加代码

    由于空间有限,我们仅列出主要代码,其余代码请看光盘。

    ' 水平滚动条移动时,改变图片的位置

    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll

    label11.Text = HScrollBar1.Value.ToString()

    hAbsPos = CSng(HScrollBar1.Value - HScrollBar1.Minimum)

    pictureBox1.Left = HScrollBar1.Right - CInt(hScrollMultiplier * hAbsPos) - pictureBox1.Width

    End Sub

    ' 更改大间距移动的值

    Private Sub comboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboBox1.SelectedIndexChanged

    VScrollBar1.LargeChange = Convert.ToInt16(comboBox1.SelectedItem.ToString())

    HScrollBar1.LargeChange = Convert.ToInt16(comboBox1.SelectedItem.ToString())

    label11.Text = HScrollBar1.Value.ToString()

    label12.Text = VScrollBar1.Value.ToString()

    End Sub

    ' 更改小间距移动的值

    Private Sub comboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboBox2.SelectedIndexChanged

    VScrollBar1.SmallChange = Convert.ToInt16(comboBox2.SelectedItem.ToString())

    HScrollBar1.SmallChange = Convert.ToInt16(comboBox2.SelectedItem.ToString())

    label11.Text = HScrollBar1.Value.ToString()

    label12.Text = VScrollBar1.Value.ToString()

    End Sub

    ' 直接拖动图片

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

    dragging = True

    ' (e.x, e.y) 表示光标相对于图片位置的相对坐标。我们需要将这个值保存下来

    oldX = e.X

    oldY = e.Y

    End Sub

    ■ 运行程序

    单击菜单"调试|启动"或单击 图标运行程序。

    小结

    本实例通过使用ScrollBar控件来控制图片的显示,这在我们要显示大图片时是很有必要的。通过对本实例的学习,读者能够掌握ScroollBar控件的基本使用方法。

    展开全文
  • VB全面控制Excel方法大汇总,共300个: 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口:ExcelID.Visible := True; 2) 更改 Excel ...
  • 连续滚动图片的制作连续滚动图片,一般都是用Flash制作,现在我们使用Script制作同样的效果:制作方法:在页面~相关位置加入代码:新建scrollimg-pic.htm页面,插入相同大小图片若干张。为使它不停顿地连续播放...
  • vb中的控件分为两类一种是 标准控件 另一种是 ActiveX控件。 工具箱中只有标准控件,这一章节我们将系统和深入的介绍标准控件的用法, 包括 标签 文本框 图片框 图像框 直线和形状 命令按钮 复选框 单选按钮 列表框...
  • VB期末考试试题及答案》由会员分享,可在线阅读,更多相关《VB期末考试试题及答案(5页珍藏版)》请在人人文库网上搜索。1、VB期末考试试题及答案一、 填空题1、VB程序设计的主要特点是 可视化设计 和 事件编程 。2...
  • VB全面控制Excel方法大汇总,共300个: 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口:ExcelID.Visible := True; 2) 更改 Excel...
  • 如果您早期绑定它,VB会在每个周围用一语句编译代码沿“如果对象什么都不是,请创建它”这一行调用该对象。虽然这可能只是第一次,但对于计算机而言,这仍然是一件额外的事情,而作为一款游戏,我们希望能够获得...
  • VB期末考试试题(A卷)一、选择题1.要改变控件的宽度,应修改该控件的(B)属性。A、TOPB、widthC、LeftD、Height2....单机滚动条两端的任何一个滚动箭头,将触发该滚动条的( C )事件。A、ScrollB 、KeyDown...
  • ActiveControl活动控件ActiveForm活动窗体Alignment文本对齐类型Align指定图形在图片框中的位置Archive文本列表框是否含有文档属性AutoRedraw控制对象自动重画AutoSize控制对象自动调整大小BBackColor背景颜色...
  • VB6.0使用汇总一

    2019-04-04 20:19:50
    2)退出VB6.0时显示Visual Basic已经停止工作 二、软件的使用 1、VB输出可执行文件或安装包 2、ComboBox 控件的使用 3、MsComm串口控件 1)MsComm控件的添加 2)MsComm控件的事件及基本属性 4、添加引用无...
  • VB中对EXCEL的各种操作

    万次阅读 多人点赞 2017-02-08 15:20:15
    全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口: ExcelID.Visible := True; 2) 更改 Excel 标题栏: ExcelID.Caption ...
  • VB6.0学习笔记

    2021-08-25 08:22:20
    Font属性:文字的大小、字体、下划线等 Autosize属性:调节控件适应文字的大小 Alignment属性:调节控件内的文字适应控件大小的水平方向的对其属性 Visible属性:可见性,true可见,false不可见 如何通过代码去修改...
  • VB常用控件介绍

    千次阅读 2018-02-16 16:24:30
    (7) ScrollBars 属性: 用来设置滚动条模式, 有四种选择: ScrollBars.None (无滚动条), ScrollBars.Horizontal(水平滚动条),ScrollBars.Vertical(垂直滚动条),ScrollBars.Both(水平和垂直滚动...
  • vb.net控件

    千次阅读 2020-04-28 14:49:22
    vb.net 的 Label 控件 label(标签)控件用于显示文本,是设计应用程序界面时经常要用到的控件之一, 主要是用于显示其他控件名称,描述程序运行状态或标识程序运行的结果信息等 等,响应程序的事件或跟踪程序运行的...
  • VB讲课笔记06:窗体与常用控件

    千次阅读 2018-03-10 17:24:29
    VB讲课笔记06:窗体与常用控件 一、窗体设计 窗体是VB中最基本的对象,是应用程序的基本组成部分,是菜单栏、工具栏和控件等对象的容器,是应用程序与用户交互的窗口或对话框。窗体设计是整个VB应用程序设计的基础...
  • 用数据报表设计器设计数据报表话题:VBform打印缩放的问题,想把form扩大打印到A4纸问题详情:不管怎么设置,都不管用,很郁闷~ 码如下: Printer.Zoom =回答:FORM的大小不是无大的,是不能超过屏幕分辨率的范围的。...
  • Winform:关于滚动条美化 先来点直观的效果,这是偶新做的一个UI中的一条滚动条,这条滚动条可独立应用于各种有下拉框的控件,不简单吧。。。。嘿嘿。 换了一家新公司马上就接到两个UI的制作,好久没做这种UI...
  • VB学习笔记(基础知识)(一)

    千次阅读 2020-03-06 16:50:54
    本学习笔记对应版本:VB6.0企业版(推荐使用企业版) 对象及其操作 对象是Visual Basic中的重要概念,现在介绍两种基本对象——窗体和控件。 Visual Basic中,对象可以分为两类,即预定义对象和用户定义对象,其中,...
  • 《大一VB编程计算机期末考试试题库》由会员分享,可在线阅读,更多相关《大一VB编程计算机期末考试试题库(9页珍藏版)》请在人人文库网上搜索。1、试卷编号: 9335 所属语言: Visual Basic 试卷方案:28_考试 试卷...
  • vs picturebox 图片缩放

    千次阅读 2020-03-11 15:00:03
    想间的实现一个图片缩放功能。分析后发现使用vs 自带的picture ...只要控制picturebox的控件大小就能实现图片的缩放。 后来考虑到窗体大小是固定的,图片放大太多之后部分图片无法显示,于是把picturebox放到了pa...
  • vb源码

    万次阅读 2012-03-22 23:10:01
    VB源码:HOOK 万能网游密码截取技术之(诛仙)  ... ...VB源码:IP地址输入框控件  下载地址:http://www.2e3.org/down.asp?url=lelecode_2 VB源码:生成MD5码  下载地址:http://www.2e3.
  • 它可以接受任意大小的gif图片,只是需要编写的代码要多一些只能说个有千秋,自己选吧 (6KB) 23,xpress40.exe Pegasus出品的图像控件,其中包含了多个控件,从图像的捕捉到显示、打印应有尽有,共支持70多种图像...
  • [VB.NET]图片浏览器

    千次阅读 2008-12-02 20:57:00
    图片浏览器 实例说明在本实例中,我们将创建一个能够浏览图片内容的应用程序。当选中所要显示的图片文件名时,应用程序就会显示出图片的内容。运行结果如图66-1所示。<!--google_ad_client = "pub-8333940862668978...
  • 掌握VB集成开发环境中开发应用程序的基本方法;2.掌握面向对象程序设计的基本概念;3.熟练掌握VB常用数据类型、运算符与表达式及常用函数;4.熟练掌握结构化程序设计的三种基本结构;5.掌握SUB过程、函数过程的...
  • 编写VB打印控制程序

    千次阅读 2005-01-17 14:14:00
    1.简介Visual Basic(VB)给用户提供了可视化编程环境,因其简单易学、功能强大而得到了广泛的应用。VB提供了两种实现打印的方法。一般在对打印质量要求不高的场合,或者是编程项目的早期开发过程中,可以直接使用...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,605
精华内容 642
关键字:

vb滚动条控制图片大小