精华内容
下载资源
问答
  • VB语言中LoadPicture函数用法示例: 本例使用 LoadPicture 函数将图片加载到窗体的 PictureBox 控件并从控件上清除掉该图片。 要试用此例,将 PictureBox 控件添加入 Form 对象,然后将以下代码粘贴到 Form 的声明...

    VB语言中LoadPicture函数用法示例:

    本例使用 LoadPicture 函数将图片加载到窗体的 PictureBox 控件并从控件上清除掉该图片。

    要试用此例,将 PictureBox 控件添加入 Form 对象,然后将以下代码粘贴到 Form  的声明部分,然后运行此例,单击 Form 。

    Private Sub Form_Click()    
     Dim Msg As String   ' 声明变量。    
     On Error Resume Next   ' 设置错误句柄。   
      Height = 3990     
    Width = 4890   ' 设置高度和宽度。    
     Picture1.Picture = LoadPicture("C:\Windows\Web\Wallpaper\Windows\img0.jpg", vbLPCustom, vbLPColor, 32, 32)     
    If Err Then         
    Msg = "Couldn't find the .cur file."         
    MsgBox Msg   ' 显示错误消息。      
       Exit Sub   ' 如果发生错误则退出。    
     End If    
     Msg = "Choose OK to clear the bitmap from the form."     
    MsgBox Msg     
    Picture1.Picture = LoadPicture()   '清除 picturebox。
    End Sub

    LoadPicture 函数,将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

    转载于:https://www.cnblogs.com/gyc19920704/p/5390154.html

    展开全文
  • VB中MsFlexGrid控件的使用细则

    千次阅读 2009-02-10 12:35:00
    VB中MsFlexGrid控件的使用细则(收集) >> 将文本赋值给MsFlexGrid的单元格 MsFlexGrid.TextMatrix(3,1)=”Hello” >> 在MsFlexGrid控件单元格中插入背景图形 Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp...

     

    VB中MsFlexGrid控件的使用细则(收集)

    >> 将文本赋值给MsFlexGrid的单元格
    MsFlexGrid.TextMatrix(3,1)=”Hello”

    >> 在MsFlexGrid控件单元格中插入背景图形
    Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”)

    >>选中某个单元
    MsFlexGrid.Row=1
    MsFlexGrid.Col=1

    >>用粗体格式化当前选中单元
    MsFlexGrid.CellFontBold=True

    >> 添加新的一行
    使用AddItem方法,用Tab字符分开不同单元格的内容
    dim row as string
    row=”AAA”&vbtab&”bbb”
    MsFlexFrid1.addItem row


    >>怎样来实现MSFlexGrid控件单数行背景为白色,双数的行背景为蓝色?
    Dim i As Integer
    With MSFlexGrid1
    .AllowBigSelection = True ’ 设置网格样式
    .FillStyle = flexFillRepeat
    For i = 0 To .Rows - 1
    .Row = i: .Col = .FixedCols
    .ColSel = .Cols() - .FixedCols - 1
    If i Mod 2 = 0 Then
    .CellBackColor = &HC0C0C0 ’ 浅灰
    Else
    .CellBackColor = vbBlue ’ 兰色
    End If
    Next i
    End With

    >> MSFlexGrid控件如何移到最后一行
    MSFlexGrid1.TopRow = MSFlexGrid1.Rows – 1

    >>如何判断msflexgrid有无滚动条
    Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As

    Long, lpMaxPos As Long) As Long
    Public Const SB_HORZ = &H0
    Public Const SB_VERT = &H1

    Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean ’判断水平滚动条的可见性
    Dim i As Long
    VsScroll = False
    i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos)
    If lpMaxPos <> lpMinPos Then VsScroll = True
    End Function

    Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean ’判断垂直滚动条的可见性
    Dim i As Long
    HeScroll = False
    i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos)
    If lpMaxPos <> lpMinPos Then HeScroll = True
    End Function

    >>程序运行时,想动态增加MSFlexgrid的列数
    在第2列后插入一列:
    Private Sub Form_Load()
    Me.MSHFlexGrid1.Cols = 5
    MSHFlexGrid1.Rows = 2
    For i = 0 To Me.MSHFlexGrid1.Cols - 1
    Me.MSHFlexGrid1.TextMatrix(0, i) = i
    Me.MSHFlexGrid1.TextMatrix(1, i) = i
    Next
    End Sub

    Private Sub Command1_Click()
    Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
    Me.MSHFlexGrid1.ColPosition(5) = 3
    End Sub

    >> 请教MSFlexGrid中的对齐功能的使用
    设置MSFlexGrid1.ColAlignment(index)=n


    >>得到MSFlexGrid控件中当前选中的一行
    msflexgrid1.rowsel就是当前选中行

    >> 如何通过代码调节列宽度
    msflexgrid1.colwidth(i)=4000
    将MsFlexGrid控件的内容输出到文本

    2004-03-19 14:25:18
    'OutDataToText
    '将MsFlexGrid控件中显示的内容输出到文本文件
    Public Sub OutDataToText(Flex As MSFlexGrid)
    Dim s As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim strTemp As String
    On Error GoTo Ert
    Me.MousePointer = 11
    On Error Resume Next
    DoEvents
    Dim FileNum As Integer
    FileNum = FreeFile
    Open "d:aa.txt" For Output As #FileNum
    With Flex
    k = .Rows
    For i = 0 To k - 1
    strTemp = ""
    For j = 0 To .Cols - 1
    DoEvents
    strTemp = strTemp & .TextMatrix(i, j) & ","
    Next j
    Print #FileNum, Left(strTemp, Len(strTemp) - 1)
    Next i
    End With
    Close #FileNum
    Me.MousePointer = 0
    MsgBox "导出成功"
    Ert:
    MsgBox Err.Description
    Me.MousePointer = 0
    End Sub
    增加 MsFlexGrid 的编辑功能

    (作者:佚名 加载日期: 2002/3/31)


    概述
    MsFlexGrid 控件没有提供文本编辑的功能,下面的例子演示了如何利用一个TextBox 实现编辑当前网格的功能

    在按下一个键后, 就把TextBox 移动到当前的位置, 并激活。 在键入回车或移动到其他网格时,

    就把TextBox 中的内容放到网格中。

    实现步骤
    1 打开 VB5, 开启一个新的工程。

    2 在菜单“工程” 中选择 “部件”, 在列表中选中 “Microsoft FlexGrid Control ..”

    3 放一个 MsFlexGrid 控件和一个TextBox 控件(Text1)到 Form1。 修改MsFlexGrid 控件的名称为 Grid1,

    设置Grid1 的行,列 为 4, 固定行,列为 0。 设置 Text1 的 Visiable 为 False, BorderStyle 为

    None(0)。

    4 在Form1 的代码中增加声明:

    Const ASC_ENTER = 13 '回车
    Dim gRow As Integer
    Dim gCol As Integer

    5 增加代码到 Grid_KeyPress 过程:

    Private Sub Grid1_KeyPress(KeyAscii As Integer)
    ' Move the text box to the current grid cell:
    Text1.Top = Grid1.CellTop + Grid1.Top
    Text1.Left = Grid1.CellLeft + Grid1.Left
    ' Save the position of the grids Row and Col for later:
    gRow = Grid1.Row
    gCol = Grid1.Col
    ' Make text box same size as current grid cell:
    Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX
    Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY
    ' Transfer the grid cell text:
    Text1.Text = Grid1.Text
    ' Show the text box:
    Text1.Visible = True
    Text1.ZOrder 0 ' 把 Text1 放到最前面!
    Text1.SetFocus
    ' Redirect this KeyPress event to the text box:
    If KeyAscii <> ASC_ENTER Then
    SendKeys Chr$(KeyAscii)
    End If
    End Sub

    6 增加代码到 Text1_KeyPress 过程:

    Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = ASC_ENTER Then
    Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.
    KeyAscii = 0 ' Ignore this KeyPress.
    End If
    End Sub

    7 增加代码到 Text1_LostFocus 过程:

    Private Sub Text1_LostFocus()
    Dim tmpRow As Integer
    Dim tmpCol As Integer
    ' Save current settings of Grid Row and col. This is needed only if
    ' the focus is set somewhere else in the Grid.
    tmpRow = Grid1.Row
    tmpCol = Grid1.Col
    ' Set Row and Col back to what they were before Text1_LostFocus:
    Grid1.Row = gRow
    Grid1.Col = gCol
    Grid1.Text = Text1.Text ' Transfer text back to grid.
    Text1.SelStart = 0 ' Return caret to beginning.
    Text1.Visible = False ' Disable text box.
    ' Return row and Col contents:
    Grid1.Row = tmpRow
    Grid1.Col = tmpCol
    End Sub

    8 好了。 按 F5 开始测试。 您可以自由地在 Grid 中移动, 按回车可以开始或结束编辑。

    使用MsFlexGrid控件的几个函数


    作者:中国论坛网收集 来源:http://www.51one.net 加入时间:2004-8-25

    在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是

    外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的

    程序

    (本人语言表达能力有限,还请见谅)

     

    ''MsFlexGrid操作函数

    ''合并列
    Public Function MergeCol(GridObj As Object, ByVal StartCol As Long, ByVal EndCol As Long, ByVal

    ColValue As String, ByVal CurrentRow As Long) As Boolean
    If StartCol > EndCol Or StartCol > GridObj.Cols Or CurrentRow > GridObj.Rows Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    MergeCol = False
    Exit Function
    End If

    For I = StartCol To EndCol
    GridObj.MergeCol(I) = True
    GridObj.TextArray(faIndex(GridObj, CurrentRow, I)) = ColValue
    GridObj.ColAlignment(I) = flexAlignCenterCenter
    Next I


    GridObj.MergeRow(CurrentRow) = True

    MergeCol = True

    End Function

     


    ''合并行
    Public Function MergeRow(GridObj As Object, ByVal StartRow As Long, ByVal EndRow As Long, ByVal

    RowValue As String, ByVal CurrentCol As Long) As Boolean
    If StartRow > EndRow Or StartRow > GridObj.Rows Or CurrentCol > GridObj.Cols Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    MergeRow = False
    Exit Function
    End If

    For I = StartRow To EndRow
    GridObj.MergeRow(I) = True
    GridObj.TextArray(faIndex(GridObj, I, CurrentCol)) = RowValue
    GridObj.ColAlignment(CurrentCol) = flexAlignCenterCenter

    Next I
    GridObj.MergeCol(CurrentCol) = True
    MergeRow = True

    End Function

    ''转换索引
    Public Function faIndex(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As Long
    If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    faIndex = -1

    Exit Function
    End If

    faIndex = row * GridObj.Cols + col

    End Function


    ''插入行
    Public Function SetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer, ByVal

    SetValue As String) As Boolean
    If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    SetItem = False
    Exit Function
    End If
    GridObj.TextArray(faIndex(GridObj, row, col)) = SetValue

    SetItem = True
    End Function

    ''得到单元格值
    Public Function GetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As String

    If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    GetItem = ""
    Exit Function
    End If
    GetItem = GridObj.TextArray(faIndex(GridObj, row, col))
    End Function

    在msflexgrid控件中每一个cell格的内容是不可以由用户直接编辑的但是我们可以通过一些小技
    巧来方便的实现这编辑功能来扩展msflexgrid的应用(在实际应用中这是很常用的功能)。

    你只需按下面的做即可轻松实现编辑msflexgrid控件数据的功能

    例在窗体上放一文本框txtvalue,和一msflexgrid控件grid

    ‘文本框控件的keypress事件
    private sub txtvalue_keypress(keyascii as integer)
    ‘放入一些处理过程,如只需输入数字时的处理

    dim i
    i=1
    end sub

    private sub txtvalue_change()
    grid.text = txtvalue.text
    end sub


    '在grid的entercell事件中加入下例代码
    private sub grid_entercell()
    txtvalue.text = grid.text
    txtvalue.selstart = 0
    txtvalue.sellength = len(txtvalue.text)
    end sub

    '当用户输入数据时直接调用文本框的keypress事件
    private sub grid_keypress(keyascii as integer)
    txtvalue_keypress keyascii
    end sub

    ok,这样一个可编辑的msflexgrid控件就完成了,简单吧!!

    原理
    当用户点击msflexgrid中的某个cell格要输入数据时,产生entercell事件,在这里我们对文本
    框进行初始化,输入当前cell格中的内容,并且选中所有文本。当用户要按下按键进行输入时,就直
    接调用txtvalue的事件,由文本框来处理.

    处理的结果同grid的当前cell同步,使用户编辑cell格就象使用文本框一样方便

     

     

    'MsFlexGrid操作函数

    '合并列
    Public Function MergeCol(GridObj As Object, ByVal StartCol As Long, ByVal EndCol As Long, ByVal ColValue As String, ByVal CurrentRow As Long) As Boolean
    If StartCol > EndCol Or StartCol > GridObj.Cols Or CurrentRow > GridObj.Rows Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    MergeCol = False
    Exit Function
    End If

    For I = StartCol To EndCol
    GridObj.MergeCol(I) = True
    GridObj.TextArray(faIndex(GridObj, CurrentRow, I)) = ColValue
    GridObj.ColAlignment(I) = flexAlignCenterCenter
    Next I


    GridObj.MergeRow(CurrentRow) = True

    MergeCol = True

    End Function




    '合并行
    Public Function MergeRow(GridObj As Object, ByVal StartRow As Long, ByVal EndRow As Long, ByVal RowValue As String, ByVal CurrentCol As Long) As Boolean
    If StartRow > EndRow Or StartRow > GridObj.Rows Or CurrentCol > GridObj.Cols Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    MergeRow = False
    Exit Function
    End If

    For I = StartRow To EndRow
    GridObj.MergeRow(I) = True
    GridObj.TextArray(faIndex(GridObj, I, CurrentCol)) = RowValue
    GridObj.ColAlignment(CurrentCol) = flexAlignCenterCenter

    Next I
    GridObj.MergeCol(CurrentCol) = True
    MergeRow = True

    End Function

    '转换索引
    Public Function faIndex(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As Long
    If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    faIndex = -1

    Exit Function
    End If

    faIndex = row * GridObj.Cols + col

    End Function


    '插入行
    Public Function SetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer, ByVal SetValue As String) As Boolean
    If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    SetItem = False
    Exit Function
    End If
    GridObj.TextArray(faIndex(GridObj, row, col)) = SetValue

    SetItem = True
    End Function

    '得到单元格值
    Public Function GetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As String

    If row > GridObj.Rows Or row < 0 Or col > GridObj.Cols Or col < 0 Then
    MsgBox "对不起,行列设置错误!", vbOKOnly, App.Title
    GetItem = ""
    Exit Function
    End If
    GetItem = GridObj.TextArray(faIndex(GridObj, row, col))
    End Function

    展开全文
  • 不使用LoadPicture函数在Pure VB中加载Windows位图 描述 对于那些对位图文件格式感兴趣的人,这就是您所需要的。 首先,本模块显示了如何在Pure VB中加载Windows位图文件,这意味着根本没有API调用,并且不使用基本...
  • VB中MsFlexGrid控件的使用细则(收集)

    千次阅读 2006-02-05 17:12:00
    VB中MsFlexGrid控件的使用细则(收集) >> 将文本赋值给MsFlexGrid的单元格 MsFlexGrid.TextMatrix(3,1)=”Hello” >> 在MsFlexGrid控件单元格中插入背景图形 Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp...
    VB中MsFlexGrid控件的使用细则(收集)

    >> 将文本赋值给MsFlexGrid的单元格
     MsFlexGrid.TextMatrix(3,1)=”Hello”

    >> 在MsFlexGrid控件单元格中插入背景图形
     Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”)

    >>选中某个单元
     MsFlexGrid.Row=1
     MsFlexGrid.Col=1

    >>用粗体格式化当前选中单元
     MsFlexGrid.CellFontBold=True

    >> 添加新的一行
     使用AddItem方法,用Tab字符分开不同单元格的内容
     dim row as string
     row=”AAA”&vbtab&”bbb”
     MsFlexFrid1.addItem row


    >>怎样来实现MSFlexGrid控件单数行背景为白色,双数的行背景为蓝色?
       Dim i As Integer
       With MSFlexGrid1
            .AllowBigSelection = True   ’ 设置网格样式
            .FillStyle = flexFillRepeat
            For i = 0 To .Rows - 1
                .Row = i: .Col = .FixedCols
                .ColSel = .Cols() - .FixedCols - 1
                If i Mod 2 = 0 Then
                   .CellBackColor = &HC0C0C0   ’ 浅灰
                Else
                   .CellBackColor = vbBlue ’ 兰色
                End If
            Next i
        End With

    >> MSFlexGrid控件如何移到最后一行
    MSFlexGrid1.TopRow = MSFlexGrid1.Rows – 1

    >>如何判断msflexgrid有无滚动条
    Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long
    Public Const SB_HORZ = &H0
    Public Const SB_VERT = &H1

    Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean          ’判断水平滚动条的可见性
    Dim i As Long
    VsScroll = False
    i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos)
    If lpMaxPos <> lpMinPos Then VsScroll = True
    End Function

    Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean          ’判断垂直滚动条的可见性
    Dim i As Long
    HeScroll = False
    i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos)
    If lpMaxPos <> lpMinPos Then HeScroll = True
    End Function

    >>程序运行时,想动态增加MSFlexgrid的列数
    在第2列后插入一列:
    Private Sub Form_Load()
    Me.MSHFlexGrid1.Cols = 5
    MSHFlexGrid1.Rows = 2
    For i = 0 To Me.MSHFlexGrid1.Cols - 1
    Me.MSHFlexGrid1.TextMatrix(0, i) = i
    Me.MSHFlexGrid1.TextMatrix(1, i) = i
    Next
    End Sub

    Private Sub Command1_Click()
    Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
    Me.MSHFlexGrid1.ColPosition(5) = 3
    End Sub

    >> 请教MSFlexGrid中的对齐功能的使用
    设置MSFlexGrid1.ColAlignment(index)=n


    >>得到MSFlexGrid控件中当前选中的一行
    msflexgrid1.row sel就是当前选中行

    >> 如何通过代码调节列宽度
    msflexgrid1.colwidth(i)=4000
    展开全文
  • >> 将文本赋值给MsFlexGrid的单元格 MsFlexGrid.TextMatrix(3,1)=”Hello” >> 在MsFlexGrid控件单元格插入背景图形 Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”) >>选中某个单元 MsFlexGrid.Row=1...

    >> 将文本赋值给MsFlexGrid的单元格

    MsFlexGrid.TextMatrix(3,1)=”Hello”

    >> 在MsFlexGrid控件单元格中插入背景图形

    Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”)

    >>选中某个单元

    MsFlexGrid.Row=1

    MsFlexGrid.Col=1

    >>用粗体格式化当前选中单元

    MsFlexGrid.CellFontBold=True

    >> 添加新的一行

    使用AddItem方法,用Tab字符分开不同单元格的内容

    dim row as string

    row=”AAA”&vbtab&”bbb”

    MsFlexFrid1.addItem row

    >>怎样来实现MSFlexGrid控件单数行背景为白色,双数的行背景为蓝色?

    Dim i As Integer

    With MSFlexGrid1

    .AllowBigSelection = True ’ 设置网格样式

    .FillStyle = flexFillRepeat

    For i = 0 To .Rows - 1

    .Row = i: .Col = .FixedCols

    .ColSel = .Cols() - .FixedCols - 1

    If i Mod 2 = 0 Then

    .CellBackColor = &HC0C0C0 ’ 浅灰

    Else

    >> 将文本赋值给MsFlexGrid的单元格 MsFlexGrid.TextMatrix(3,1)=”Hello”  

    >> 在MsFlexGrid控件单元格中插入背景图形 Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”)

    >>选中某个单元 MsFlexGrid.Row=1 MsFlexGrid.Col=1

    >>用粗体格式化当前选中单元 MsFlexGrid.CellFontBold=True

    >> 添加新的一行 使用AddItem方法,用Tab字符分开不同单元格的内容 dim row as string row=”AAA”&VBtab&”bbb” MsFlexFrid1.addItem row

     

    >>怎样来实现MSFlexGrid控件单数行背景为白色,双数的行背景为蓝色? Dim i As Integer With MSFlexGrid1 .AllowBigSelection = True ’ 设置网格样式 .FillStyle = flexFillRepeat For i = 0 To .Rows - 1 .Row = i: .Col = .FixedCols .ColSel = .Cols() - .FixedCols - 1 If i Mod 2 = 0 Then .CellBackColor = &HC0C0C0 ’ 浅灰 Else .CellBackColor = vbBlue ’ 兰色 End If Next i End With

    >> MSFlexGrid控件如何移到最后一行 MSFlexGrid1.TopRow = MSFlexGrid1.Rows – 1

    >>如何判断msflexgrid有无滚动条 Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long Public Const SB_HORZ = &H0 Public Const SB_VERT = &H1

    Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean ’判断水平滚动条的可见性 Dim i As Long VsScroll = False i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos) If lpMaxPos <> lpMinPos Then VsScroll = True End Function

    Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean ’判断垂直滚动条的可见性 Dim i As Long HeScroll = False i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos) If lpMaxPos <> lpMinPos Then HeScroll = True End Function

    >>程序运行时,想动态增加MSFlexgrid的列数 在第2列后插入一列: Private Sub Form_Load() Me.MSHFlexGrid1.Cols = 5 MSHFlexGrid1.Rows = 2 For i = 0 To Me.MSHFlexGrid1.Cols - 1 Me.MSHFlexGrid1.TextMatrix(0, i) = i Me.MSHFlexGrid1.TextMatrix(1, i) = i Next End Sub

    Private Sub Command1_Click() Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1 Me.MSHFlexGrid1.ColPosition(5) = 3 End Sub

    >> 请教MSFlexGrid中的对齐功能的使用 设置MSFlexGrid1.ColAlignment(index)=n

     

    >>得到MSFlexGrid控件中当前选中的一行 msflexgrid1.rowsel就是当前选中行

    >> 如何通过代码调节列宽度 msflexgrid1.colwidth(i)=4000

     

    展开全文
  • 首先获得一个图片对象 ...2 Set spic = LoadPicture("d:\0.bmp") '从文件获得 3 Set spic = Clipboard.GetData '从粘贴板获得 方法一: Dim w As Long, h As Long w = spic.Width/ 26.4591 h = spic....
  • VB中MsFlexGrid控件的使用细则收集

    千次阅读 2008-01-04 11:58:00
    >> 将文本赋值给MsFlexGrid的单元格 MsFlexGrid.TextMatrix(3,1)=”Hello” >> 在MsFlexGrid控件单元格插入背景图形 Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”) >>选中某个单元 MsFlexGrid.Row=1...
  • VB6.0编译环境能打开excel ,但生成exe文件后,就报错![图片说明](https://img-ask.csdn.net/upload/201705/17/1495000293_517657.jpg) ``` Option Explicit Dim newxls As New Excel.Application Dim ...
  • VB中MsFlexGrid控件的使用细则(收集)

    千次阅读 2006-02-20 20:47:00
    >> 将文本赋值给MsFlexGrid的单元格 MsFlexGrid.TextMatrix(3,1)=”Hello” >> 在MsFlexGrid控件单元格插入背景图形 Set MsFlexGrid.CellPicture=LoadPicture(“C:/temp/1.bmp”) >>选中某个单元 MsFlexGrid.Row=1...
  • VB加载图片

    2014-10-29 20:49:30
    对图片用VB进行加载到数据库 从数据库读图片 Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim mstream As ADODB.Stream szConString = "Provider=sqloledb.1;Persist Security Info=False;User ...
  • VB6.0 创建一个右键菜单,为了便于用户使用“粘贴”功能,特此自定义了一个右键菜单,在这个右键菜单用户可选择粘贴,直接从剪帖板粘贴内容到本窗口。以下是相关的代码:  Private Sub Picture1_MouseDown...
  • vb习题精选材料.doc

    2020-04-19 21:29:01
    PAGE PAGE 1 一单项选择题 C.1如果在图片框Picture1装入一个图形为了清除该图形不删除图片框应采用的方法是_1分 A选择图片框在属性窗口选择Picture属性条然后按回车键B选择图片框然后按Del键 C执行语句 Picture1...
  • VB基础--控件

    2014-06-26 13:49:00
     在设计和执行阶段都可以载入图片,设计时的图片已加到可执行文件,运行时LoadPicture需要从外部读取。 对于窗体来说,只有当此窗体上任何控件都不接受焦点时,此窗体才能接受焦点 只有在窗体和控...
  • vb的一些问题

    2010-12-18 12:53:00
    我在vb编程遇到一些问题,望高手们能指教一下 If Image1.Picture = None Then Image2.Picture = Image1.Picture Image2.Picture = LoadPicture("") End If  最后怎么判断两张图片...
  • VB程序设计及应用

    2012-11-26 14:07:12
    6.2.5 LoadPicture函数 6.3 多窗体 6.3.1 加载窗体 6.3.2 显示窗体 6.3.3 隐藏窗体 6.3.4 卸载窗体 6.3.5 建立多窗体 6.4 鼠标事件与键盘事件 6.4.1 鼠标事件 6.4.2 键盘事件 实训 ...
  • VB自己的绘图语句都需要用LoadPicture载入图片,同样,GDI+也需要。 1.载入(初始化)图片资源 (1)来自文件:GdipLoadImageFromFile 我们先来看看这个最简单基本的载入图片来自文件: ...
  • vb Script参考文档

    2009-07-28 22:13:02
    LoadPicture 函数 返回图片对象。仅用于 32 位平台。 Log 函数 返回数的自然对数。 LTrim 函数 返回去掉前导空格的字符串副本。 Match 对象 提供访问匹配正则表达式的只读属性。 Matches 集合 正则表达式匹配...
  • VB 动态改变图像框Image的Stretch属性,用户通过自定义的两款代码,可随意改变image的长度和宽度大小,不过本源码将此两种操作封装在按钮事件,用户只需单击按钮,即可放大或缩小image框,动态改变了Image的...
  • VB6 GDI+ 入门教程(6)——图片

    万次阅读 2012-11-26 22:22:21
    版权声明:转载时请以...VB自己的绘图语句都需要用LoadPicture载入图片,同样,GDI+也需要。 1.载入(初始化)图片资源 (1)来自文件:GdipLoadImageFromFile 我们先来看看这个最简单基本的载入图片来自文件:
  • 用鼠标点中该图片,在属性窗口选中Picture属性,按Del键便可清空图片。 3、 Visual Basic 如何注释一段较长程序代码? VB注释程序代码的符号是“注释:”,只要在某行程序前面加上“注释:”,就可以注释该行...
  • VB实现将图片文件复制到剪贴板

    千次阅读 2007-06-07 14:23:00
    Clipboard.Clear Clipboard.SetData LoadPicture("c:/test1.gif") API说明: Clipboard对象提供对系统Clipboard的访问。 说明 Clipboard对象用于操作剪贴板上的文本和图形。它使用户能够复制、剪切和粘贴应用...
  • Visual Basic使用资源的技巧

    千次阅读 2006-02-23 09:22:00
    c 读入的图形资源和使用LoadPicture读入的图象一样使用,省去了调用BitBlt等API函数的麻烦。这些图象资源也可以直接赋给与图象有关的属性,如Picture属性,而这是采用API方法比较难实现的。 一、如何制作资源文件 ...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

vb中loadpicture