用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB 移动Combobox某项的位置

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2011-03-07 23:59:59

VB 移动Combox某项的位置:

VBScript code复制代码
'cbojob当前选择向下移一位
Private Sub cmdPostpone_Click()
    Dim strItem As String
    Dim lngIndex As Long
   
    'copy原来的数据,包括列数据
    strItem = Me.cboJob & ";" & Me.cboJob.Column(1) & ";"
    lngIndex = Me.cboJob.ListIndex
   
     '删除原来的数据
    Me.cboJob.RemoveItem lngIndex
    Debug.Print Me.cboJob.ListIndex '当前index变为-1
   
   '在新位置添加数据
     Me.cboJob.AddItem strItem, lngIndex + 1
    Debug.Print Me.cboJob.ListIndex '当前index变为lngIndex + 1
   
    '把index改回原来那一行
    Me.cboJob.SetFocus
    Me.cboJob.ListIndex = lngIndex

End Sub

Tags:Combo VB 移动位置

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      100%(1)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论