精华内容
下载资源
问答
  • 用vb写个modbus通讯的程序,结果上来就在winsock控件上了。 EXCEL VBA 想装臃肿的VB,使用内置的VBA行不行呢? 答案当然是不行。 最初由于没有安装VB程序,添加控件的时候没有winsock的选项 解决办法是下载...

    想用vb写个modbus通讯的程序,结果上来就卡在winsock控件上了。

    EXCEL VBA

    不想装臃肿的VB,使用内置的VBA行不行呢?
    答案当然是不行。

    最初由于没有安装VB程序,添加控件的时候没有winsock的选项
    在这里插入图片描述
    在这里插入图片描述
    解决办法是下载“mswinsck.ocx”控件,下载完成后将改控件拷贝到“C:\Windows\System32”文件夹下,然后cmd运行“regsvr32 mswinsck.ocx”完成控件注册,之后才能正常使用,也就是可以在vb添加控件的选项中显示。
    下载链接:

    但是能加载控件并不代表能用。
    在这里插入图片描述
    搜索了相关的链接,得到的答案还是要装vb6,这就很尴尬了。

    VB6

    使用vb6后同样有问题,提示:“该部件的许可证信息没有找到许可证使.在设计环境中,没有合适的用该功能解决思路”
    解决方法:下载注册表文件,双击加载,然后重新打开vb即可正常使用。
    在这里插入图片描述
    注册表文件下载:

    展开全文
  • 54个VB OCX控件

    2015-09-09 13:37:03
    prjXTab.ocx 又是一款圆角选项卡控件,类似tabctl32.ocx 2.6.列表框类 SBLIST.OCX 界面很酷的列表框控件 vbalIml6.ocx 类似ImageList的图象控件 2.7.菜单类 asAssistantPopup.ocx 弹出管理菜单 2.8.皮肤类 ...
  • VB控件属性使用大全

    2011-12-15 12:02:34
    (2)在对话框中选择“控件选项卡,显示ActiveX控件列表; (3)在列表框中找到需要添加的控件名称,单击控件名称左侧的复选框; (4)使用同样的方法选择需要添加的其它控件; (5)单击“确定”按钮,即可将所选...
  • 正是因为这些,因为大家的无私,所以我也能自私,呵呵,分享一下打造“自己2010选项卡”,2010选项卡的修改比2003版的菜单修改复杂了,希望能帮到一些对这方面感兴趣的朋友,由于水平够,里面有许多不足,欢迎大家...
  • VB.NET 入门经典 (第三版)

    热门讨论 2009-07-29 16:56:26
    1.3.2 Projects选项卡 7 1.3.3 菜单 8 1.3.4 工具栏 9 1.4 创建简单的应用程序 10 1.4.1 Visual Studio .NET集成开发环境中的窗口 12 1.4.2 工具箱 14 1.4.3 改进型匈牙利表示法 17 1.4.4 代码编辑器 18 1.5 使用...
  • 1.3.2 Projects选项卡 7 1.3.3 菜单 8 1.3.4 工具栏 9 1.4 创建简单的应用程序 10 1.4.1 Visual Studio .NET集成开发环境中的窗口 12 1.4.2 工具箱 14 1.4.3 改进型匈牙利表示法 17 1.4.4 代码编辑器 18 1.5 使用...
  • 1.3.2 Projects选项卡 7 1.3.3 菜单 8 1.3.4 工具栏 9 1.4 创建简单的应用程序 10 1.4.1 Visual Studio .NET集成开发环境中的窗口 12 1.4.2 工具箱 14 1.4.3 改进型匈牙利表示法 17 1.4.4 代码编辑器 18 1.5 使用...
  • 结账之SSTab

    热门讨论 2015-08-10 08:11:58
    刚打开结账窗体,就看到一个既陌生又亲切的控件---SSTab,记得在敲VB百例的时候,过这个控件,今天看到它的时候一点都想起来它叫什么来着,通过翻阅师姐的博客,才知道原来它就叫做SStab,是部件中的一个控件。...

         刚打开结账窗体,就看到一个既陌生又亲切的控件---SSTab,记得在敲VB百例的时候,用过这个控件,今天看到它的时候一点都想不起来它叫什么来着,通过翻阅师姐的博客,才知道原来它就叫做SStab,是部件中的一个控件。


    加载 工程→部件→控件 中勾选“Microsoft Tabbed Dialog Control”控件,点击应用

    介绍SSTab控件提供了一组选项卡,每个都充当一个容器,包含了其他的控件。控件中每次只有一个选项卡是活动的,给用户提供了其所包含的控件,而其他选项卡都是隐藏的。


    用法:

    Private Sub SSTab1_Click(PreviousTab As Integer)

    Dim sum As Long, sum1 As Long, sum2 As Long
    Dim i As Long
    <span style="color:#009900;">'选择sstab的各个选项卡</span>
    <strong>Select Case SSTab1.Tab
        Case 0   <span style="color:#009900;">'购卡</span></strong>
        <span style="color:#009900;">'从数据库中选择对应用户的内容</span>
        txtSQL1 = "select * from student_info where userid='" & Trim(combouserID.Text) & "'"
        Set mrc1 = ExecuteSQL(txtSQL1, Msgtext)
        
            With myflexgrid1
                .Rows = 1
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "日期"
                .TextMatrix(0, 3) = "时间"
                .TextMatrix(0, 4) = "金额"
                Do While Not mrc1.EOF
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = mrc1.Fields(1)
                    .TextMatrix(.Rows - 1, 1) = mrc1.Fields(0)
                    .TextMatrix(.Rows - 1, 2) = mrc1.Fields(12)
                    .TextMatrix(.Rows - 1, 3) = mrc1.Fields(13)
                    .TextMatrix(.Rows - 1, 4) = mrc1.Fields(7)
                    mrc1.MoveNext
                    Call AdjustColWidth(frmcheckoutaccount, myflexgrid1)  <span style="color:#009900;">'自定调节myflexgrid的列宽</span>
               Loop
            End With
                
        <strong>Case 1      <span style="color:#009900;">'充值</span></strong>
        txtSQL2 = "select * from recharge_info where userid='" & Trim(combouserID.Text) & "'"
        Set mrc2 = ExecuteSQL(txtSQL2, Msgtext)
           
            With myflexgrid2
                .Rows = 1
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "充值金额"
                .TextMatrix(0, 3) = "日期"
                .TextMatrix(0, 4) = "时间"
                Do While Not mrc2.EOF
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = mrc2.Fields(1)
                    .TextMatrix(.Rows - 1, 1) = mrc2.Fields(2)
                    .TextMatrix(.Rows - 1, 2) = mrc2.Fields(3)
                    .TextMatrix(.Rows - 1, 3) = mrc2.Fields(4)
                    .TextMatrix(.Rows - 1, 4) = mrc2.Fields(5)
                     mrc2.MoveNext
                    Call AdjustColWidth(frmcheckoutaccount, myflexgrid2) <span style="color:#009900;"> '自定调节myflexgrid的列宽</span>
               Loop
                
           End With
       <strong> Case 2      <span style="color:#009900;"> '退卡</span></strong>
        txtSQL3 = "select * from cancelcard_info where userid='" & Trim(combouserID.Text) & "'"
        Set mrc3 = ExecuteSQL(txtSQL3, Msgtext)
        
            With myflexgrid3
                .Rows = 1
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "日期"
                .TextMatrix(0, 3) = "时间"
                .TextMatrix(0, 4) = "退卡金额"
                Do While Not mrc3.EOF
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = mrc3.Fields(0)
                    .TextMatrix(.Rows - 1, 1) = mrc3.Fields(1)
                    .TextMatrix(.Rows - 1, 2) = mrc3.Fields(3)
                    .TextMatrix(.Rows - 1, 3) = mrc3.Fields(4)
                    .TextMatrix(.Rows - 1, 4) = mrc3.Fields(2)
                     mrc3.MoveNext
                    Call AdjustColWidth(frmcheckoutaccount, myflexgrid3)  <span style="color:#009900;">'自定调节myflexgrid的列宽</span>
               Loop
            
            End With
       <strong> Case 3      <span style="color:#009900;">'临时用户</span></strong>
        txtSQL4 = "select * from student_info where userid='" & Trim(combouserID.Text) & "' and type='临时用户'"
        Set mrc4 = ExecuteSQL(txtSQL4, Msgtext)
        
            With myflexgrid4
                .Rows = 1
                .TextMatrix(0, 0) = "学号"
                .TextMatrix(0, 1) = "卡号"
                .TextMatrix(0, 2) = "日期"
                .TextMatrix(0, 3) = "时间"
                .TextMatrix(0, 4) = "金额"
                Do While Not mrc4.EOF
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = mrc4.Fields(1)
                    .TextMatrix(.Rows - 1, 1) = mrc4.Fields(0)
                    .TextMatrix(.Rows - 1, 2) = mrc4.Fields(12)
                    .TextMatrix(.Rows - 1, 3) = mrc4.Fields(13)
                    .TextMatrix(.Rows - 1, 4) = mrc4.Fields(7)
                    mrc4.MoveNext
                    Call AdjustColWidth(frmcheckoutaccount, myflexgrid4)  <span style="color:#009900;">'自定调节myflexgrid的列宽</span>
               Loop
               
            End With
        
     <strong>   Case 4  <span style="background-color: rgb(255, 255, 255);"><span style="color:#009900;"> '汇总</span></span></strong>
            txtsellcardcount.Text = myflexgrid1.Rows - 1    <span style="background-color: rgb(255, 255, 255);"><span style="color:#009900;"> '售卡数</span></span>
            txtcancelcardcount.Text = myflexgrid3.Rows - 1    <span style="color:#009900;"> '退卡数</span>
            txtallsellcard.Text = Val(txtsellcardcount.Text) - Val(txtcancelcardcount.Text)  <span style="color:#009900;"> '总售卡数</span>
            <span style="color:#009900;">'充值金额</span>
            For i = 1 To myflexgrid2.Rows - 1
            sum = sum + Val(myflexgrid2.TextMatrix(i, 2))
            Next
            txtpay.Text = sum
           <span style="color:#009900;">  '退卡金额</span>
            For i = 1 To myflexgrid3.Rows - 1
            sum1 = sum1 + Val(myflexgrid3.TextMatrix(i, 4))
            Next
            txtcancelcardpay.Text = sum1
            <span style="color:#009900;">'临时收取金额</span>
            For i = 1 To myflexgrid4.Rows - 1
            sum2 = sum2 + Val(myflexgrid4.TextMatrix(i, 4))
            Next
            txtlspay.Text = sum2
            txtcountpay.Text = sum - sum1
        <strong>Case 5   </strong><span style="color:#009900;">'退出</span>
            Unload Me
    <strong>End Select
    End Sub</strong>

    总结:当遇到一个陌生的事物时,就要慢慢去摸索、探究,在我们的不断努力下,它们就会甘拜下风,为我们所用,学习是这样,生活亦是这样,加油!








    展开全文
  • 实例148 用VB分离出文本框的单词 第6章 过程与函数 6.1 自定义过程 实例149 过程值传递参数 实例150 过程引用传递参数 实例151 借助第3个变量实现两个变量互换 实例152 计算加权平均值 实例153 检查参数...
  • 实例148 用VB分离出文本框的单词 第6章 过程与函数 6.1 自定义过程 实例149 过程值传递参数 实例150 过程引用传递参数 实例151 借助第3个变量实现两个变量互换 实例152 计算加权平均值 实例153 检查参数...
  • 实例192 代码设置DataGrid控件的列标头 350 实例193 快速将DataGrid控件中的数据显示在 文本框中 351 实例194 在DataGrid控件中实现下拉列表框 353 实例195 使用代码格式化DataGrid控件中的 数据 354 实例...
  • 实例192 代码设置DataGrid控件的列标头 350 实例193 快速将DataGrid控件中的数据显示在 文本框中 351 实例194 在DataGrid控件中实现下拉列表框 353 实例195 使用代码格式化DataGrid控件中的 数据 354 实例...
  • 67选项卡( TabControl Timer控件 69 MD综合示例 错误!定义书签 任务实训部分……143 1创建记事本”应用程序 错误!未定义书签 2:增强”记事本”功能∴ 143 3:实现记事本字体样式设置… 144 C#项目开发全程实录视频...
  • 修改核心支持库,解决“播放音乐()”播放“音频采样大小为24位”的WAV文件时产生噪音的BUG。 4. 修改编译器,可以为编译出的EXE、DLL添加版本信息(通过“程序配置”设定)。 5. 修改集成开发环境,自动记忆非...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • JAVA上百实例源码以及开源项目

    千次下载 热门讨论 2016-01-03 17:37:40
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • ASP.NET办公自动化系统开发实例导航

    热门讨论 2008-12-24 16:54:10
    ⑥ 依次单击各个对话框的“确定”按钮,退回到如图4所示的“还原数据库”对话框,单击“选项”选项卡,确保数据库数据文件和日志文件的路径和如图2所示的新建数据库文件的位置一致,如图15所示。 图15 确保路径和...
  • java源码包2

    千次下载 热门讨论 2013-04-20 11:28:17
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • C#微软培训教材(高清PDF)

    千次下载 热门讨论 2009-07-30 08:51:17
    本书着重介绍语言本身,比较少涉及应用,不错的入门书,从头讲起,不怕明白。 <<page 1>> page begin==================== 目 目目 目 录 录录 录 第一部分 C#语言概述.4 第一章 第一章第一章 第...
  • java源码包3

    千次下载 热门讨论 2013-04-20 11:30:13
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • java源码包4

    千次下载 热门讨论 2013-04-20 11:31:44
     QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • C#微软培训资料

    2014-01-22 14:10:17
    18.2 在 C #代码中调用 C++和 VB 编写的组件 .240 18.3 版 本 控 制 .249 18.4 代 码 优 化 .252 18.5 小 结 .254 第五部分 附 录 .255 附录 A 关 键 字.255 附录 B 错 误 码.256 附录 C .Net 名字空间...
  • QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • QQ客户端登录界面,中部有三个JPanel,有一个叫选项卡窗口管理。还可以更新好友列表,响应用户双击的事件,并得到好友的编号,把聊天界面加入到管理类,设置密码保护等。 Java编写的网页版魔方游戏 内容索引:JAVA...
  • 该公司是一家刚刚成立的公司,总体人员比较少,有正式员工20人,人员结构比较简单,学历比较高,基本拥有大专以上学历,部门划分也很清晰,而且人员的流动性高,所以公司目前对工资管理的要求高。因此,针对该...

空空如也

空空如也

1 2
收藏数 30
精华内容 12
关键字:

vb选项卡控件用不了