精华内容
下载资源
问答
  • Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand Convert the row index stored in the C

    Protected Sub GridView1_RowCommand(ByVal sender As Object,  ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridView1.RowCommand

            ' Convert the row index stored in the CommandArgument
            ' property to an Integer.
            Dim index As Integer = Convert.ToInt32(e.CommandArgument)

            ' Retrieve the row that contains the button clicked
            ' by the user from the Rows collection.
            Dim row As GridViewRow = GridView1.Rows(index)
            Dim ss, ss1 As String
            ss = CType(row.Cells(0).Controls(0), LinkButton).Text'获得LinkButton的值
            ss1 = row.Cells(1).Text '获得boundfield的值

        End Sub

    展开全文
  • VB中,将非Access数据库称为外来数据库。对于FoxPro、dBASE、Paradox等外来数据库。虽然借助VB的Data Manager 能够对这些数据库进行NEW、OPEN、DESIGN、DELETE等操作,但在应用程序的运行状态中并不能从底层真正...
  • 背景: 在VB6的代码,CheckBox以下的条件...在代码,CheckBox的ListIndex或者Text的值得设定操作存在   将上级的代码从VB6升级到VB.NET后,下记的变更有  1.VB6的CheckBox的Click事件→VB.NET的CheckBox的Sel

    背景:

    在VB6的代码中,CheckBox以下的条件符合的场合:

     1.CheckBox的Click事件存在

     2.CheckBox的Change事件存在

     3.在代码中,CheckBox的ListIndex或者Text的值得设定操作存在

     

    将上级的代码从VB6升级到VB.NET后,下记的变更有

     1.VB6的CheckBox的Click事件→VB.NET的CheckBox的SelectedIndexChanged事件

     2.VB6的CheckBox的Change事件→VB.NET的CheckBox的TextChanged事件

     3.VB6的CheckBox的ListIndex属性→VB.NET的CheckBox的SelectedIndex属性

        VB6的CheckBox的属性→VB.NET的CheckBox的SelectedIndex属性

     

    事件的差异详解:

    1.VB6:CheckBox的ListIndex的值设定的场合,触发CheckBox的Click事件。

       VB.NET:CheckBox的SelectedIndex的值设定的场合,触发CheckBox的TextChanged和SelectedIndexChanged事件。

    2.VB6:CheckBox的Text的值设定的场合,触发CheckBox的Changed事件。

       VB.NET:CheckBox的Text的值设定的场合,触发CheckBox的TextChanged和SelectedIndexChanged事件。

     

    对应案:

    1.在VB.NET的CheckBox的SelectedIndex的值设定的前后标识Flag追加。SelectedIndex的值设定前,Flag设定为True,执行后Flag设定为False。

      在CheckBox的TextChanged事件的开始处,Flag的判断出来追加,Flag的值为True的场合,TextChanged事件的内容不执行,直接退出当前事件。

    2.在VB.NET的CheckBox的Text的值设定的前后标识Flag追加。Text的值设定前,Flag设定为True,执行后Flag设定为False。

      在CheckBox的SelectedIndexChanged事件的开始处,Flag的判断出来追加,Flag的值为True的场合,SelectedIndexChanged事件的内容不执行,直接退出当前事件。

     

    展开全文
  • ●●●2019.01.19VB常用控件-列表框(本文的列表框Name属性以默认的List1为述)1、将列表框的内容排序在设计或运行时,可将列表框的SORTED属性设置为TRUE(默认为FALSE)来对列表框的各项内容按字母顺序进行排列。...
    3a958c0a906d58bd96b24ff0c23c673c.gif

    ●●●

    4b04bcc74417f7ec0865a744e0d2d217.png

    2019.01.19

    VB常用控件 - 列表框

    (本文中的列表框Name属性

    以默认的List1为述)

    1、将列表框中的内容排序

    在设计或运行时,可将列表框的SORTED属性设置为TRUE(默认为FALSE)来对列表框的各项内容按字母顺序进行排列。

    2、怎样返回被选中的列表项的文本

    可以使用list1.text属性或list1.list(list1.listindex)来得到列表项。

    3、使用多选列表框

    多选列表框允许用户一次选择多个列表项。通过对MULTISELECT属性的设置,就可以把一个列表框变成多选列表框。用户可以用SHIFTCTRL键选择多个列表框。

    下面是设置它时可能用到的值:

    0--不允许进行多选(默认);

    1--简单的多选,单击鼠标或空格键可在列表框中选中一项或取消选择;

    2--扩展的多选。按下 SHIFT 键并单击鼠标或按下 SHIFT 键和一个箭头键。

    4、使列表框具有水平滚动条

    只须把 COLUMNS 属性将列表框划分为多列即 可,默认情况下属性的值为 0,不允许多列;设置为其他值时,列表框就会将他的列表项显示为多列,而我们对每一项的操作方法不变。

    5、在列表框中使用复选框:

    可通过设置 STYLE 属性,将一个列表框变成使用 复选框的列表框。

    下面是设置STYLE属性时所用的值: 

    0--标准列表框(默认); 

    1-- 带有复选框的列表框

    6、清空列表框 

    List1.Clear

    大家在学习备考的过程中有疑问,可以添加小编微信号:vbyjk521 ,小编提供在线解答。

    60fa57d240dea885463b0a32103f6f36.png



    4a8c0b70814022fa36e23e8b14bb11c3.gifd968c2efd878aec983ec4743fae873eb.png

    长按识别关注跟我学VB

    展开全文
  • 经过前面几期的努力,我们做了这些事:学习使用 Popup、Text、Edit、Button,创建视窗;处理视窗的返回值:event 和 values,它们在一个 tuple ;用 requests 库请求网络资源——天气预报接口;做了一个简单的天气...

    c0a8eff4c1d0274a940d0a4779703b45.png

    经过前面几期的努力,我们做了这些事:

    • 学习使用 Popup、Text、Edit、Button,创建视窗;
    • 处理视窗的返回值:event 和 values,它们在一个 tuple 中;
    • 用 requests 库请求网络资源——天气预报接口;
    • 做了一个简单的天气预报工具;
    • 让程序活的更长,变成持久化程序。

    相比最开始学习 Python,只能得到一个黑窗输出一些字符,真的是已经相当 “现代化”了!

    使用更专业的工具

    之前我们的代码很多都托管在 repl.it 上,为了:

    • 免除 Python 环境搭建之苦;
    • 减少不一致性,确保同样的代码可以得到相同的结果,因为我们用的是同一套在线环境。

    但是这个环境有点问题,对中文支持不好,还有点慢,而且 GUI 程序主要是在个人电脑上运行。我相信通过这么久的使用,对你来说安装 Python3 已经不再那么困难了。

    TIPS
    菜鸟教程 是我非常推荐的一个在线学习网站,它的环境搭建教程非常详细,希望可以帮到你。

    安装好 Python3 以后,你就可以进入命令行输入

    pip install PySimpleGUI
    pip install requests

    来安装所需要的库。要记住:第三方库真的不在你的计算机里,在 “第三方” 那里。使用它们前一定要先安装,否则在代码中 import xxx 执行的时候就会报错 “No module named xxx”。

    然后再安装 pycharm 或者 visual studio code,这些工具是更智能化的开发工具,它会自动找到已经安装好的 Python。如果安装遇到问题,借助百度一般会得到很好的解决。

    TIPS
    我使用的是 visual studio code,如果你不确定,最好与我保持一致,也安装 visual studio code。

    总之,是时候认真的编程了,在你的电脑上写程序、调试程序、使用程序,像一个真正的本地程序一样。

    本地运行上一节代码

    当你安装好 Python3,并且安装了 pycharm 或者 visual studio code 之一作为开发工具,那么请新建一个目录 getWeatherTool,在其中创建一个 main.py 文件,粘贴下面的代码,这些代码是 上一节 的成果:

    import PySimpleGUI as sg
    import requests
    import json
    
    def get_weather(city):
        # 在线环境不支持中文输入,所以我改用城市编号的接口,如果你在电脑上开发,就不受影响
        r = requests.get("http://wthrcdn.etouch.cn/weather_mini?citykey=" + city)
        result = json.loads(r.text)
        return result["data"]["forecast"][0]["type"]
    
    
    # 让所有文本居中
    sg.SetOptions(text_justification='center') 
    
    # 蓝图不需要放到循环中
    layout = [ 
               [ sg.Text("City", size = (20, 1)), sg.Input(key = "-CITY-") ],
               [ sg.Text("Weather", size = (20, 1)), sg.Input(key = "-WEATHER-") ],
               [ sg.Button("Submit")]
             ]
    
    # 视窗也只需要创建一次,不要放到循环里
    window = sg.Window("Weather App", layout)
    
    while True:
      event, values = window.read()
    
      print(event, values)
    
      # 当点击 window 右上角的 X,event 是 None,此时应当退出循环
      if event is None:
        break
    
      # values 是一个字典,访问可输入组件的 key(定义蓝图时指定了这个参数)可以获得组件的输入
      city = values["-CITY-"]
    
      weather = get_weather(city)
    
      print(weather)
    
      # 找到天气输入框
      weather_wind = window["-WEATHER-"]
    
      # 将天气更新到输入框
      weather_wind.update(weather)
    
      # 程序已经不会直接退出了,下一行就不需要了
      # window.read()
    
    # 当退出循环的时候,就是程序退出之时,关掉 window
    window.close()

    点击调试运行就可以看到结果了,记住,现在用的天气预报接口里,城市要填写编号,北京的编号是 101010100

    335d4b8bf125e2ea075f2262e7db5714.gif

    hu~ 北京的雾霾真是挥之不去~

    一点改进

    下面做一点改进:城市名称使用中文。

    由于之前使用的是在线编辑环境,对中文支持不好,所以使用了城市编码的形式。只要更换一个接口,就可以支持中文城市名查询了。

    修改这个函数,使用新的接口:

    def get_weather(city):
        # 在线环境不支持中文输入,所以我改用城市编号的接口,如果你在电脑上开发,就不受影响
        # 注释掉旧接口,不再使用城市编码查询天气
        # r = requests.get("http://wthrcdn.etouch.cn/weather_mini?citykey=" + city)
        r = requests.get("http://wthrcdn.etouch.cn/weather_mini?city=" + city)
        result = json.loads(r.text)
        return result["data"]["forecast"][0]["type"]
    TIPS
    看出来使用函数的好处了吧,当需要对某个功能作出修改的时候,只要修改一个函数就可以。如果不用函数,就需要在代码各处修改,很麻烦,最糟糕的是容易出错。

    再试着运行一次看看!这次我们输入城市名称就可以了,非常棒!

    daf8557edeb9a12b60e94214e2a13827.gif

    看,很多城市都有雾霾,武汉倒是多云,不错~

    所有人都喜欢选择题

    小时候考试对我一直都是梦魇,现在偶尔也会被惊醒,即便如此,我对选择题也抱有特别对好感,即使完全不会也可以用 “学渣口诀” 蒙一个选择:

    NOT TIPS
    学渣口诀:
    不是 A,就是 B,不会就蒙 C 和 D。
    三长一短就选最短, 三短一长选最长,两长两短选 B,参差不齐 C 无敌。

    对于用户也是一样,选择要比填空更加友好。我们使用 Combo 替换 layout[0] 中的 Input。Combo 就是下拉框。

    layout = [ 
               #[ sg.Text("City", size = (20, 1)), sg.Input(key = "-CITY-") ],
               [ sg.Text("City", size = (20, 1)), sg.Combo(("北京", "上海", "深圳"), size=(10, 1), default_value="上海", key = "-CITY-")]
               [ sg.Text("Weather", size = (20, 1)), sg.Input(key = "-WEATHER-") ],
               [ sg.Button("Submit")]
             ]

    注意到 Combo 的初始化参数多了一些:

    • 第一项参数是一个 tuple,是下拉框里所有的选项,这里列出了 3 个城市。
    • 为了有足够宽度显示城市名称,我将 size 指定为 (10, 1), 10 个英文字符宽,1 个字符高。
    • 没有选中的时候,Combo 默认显示 default_value 中的值。

    再看看结果:

    5973ba4a938008949d0343bb534d617d.gif

    成功的把填空题变成了选择题,对我这样的 “学渣” 实在是太照顾了。

    TIPS
    其实在用户心理中,从填空到选择的变化,引起的是用户决策成本的变化:选择要比提建设意见消耗的脑细胞少的多,成本更低,用户会觉得更舒适。
    对用户好一点,记住,这是对软件开发者最重要的建议!可能比写代码更重要。

    没有最懒,只有更懒!

    那就再宠爱一点用户咯,送佛送上天嘛!记得在介绍 window.read() 的时候,我们提到过 Button 只是能触发 read 函数返回的组件之一,其他的各种可输入组件都可以!比如这里的 Combo 组件被选中的时候。
    但是需要做一点准备工作:

    layout = [ 
               #[ sg.Text("City", size = (20, 1)), sg.Input(key = "-CITY-") ],
               [ sg.Text("City", size = (20, 1)), sg.Combo(("北京", "上海", "深圳"), size=(10, 1), default_value="上海", change_submits=True, key = "-CITY-")],
               [ sg.Text("Weather", size = (20, 1)), sg.Input(key = "-WEATHER-") ] #,
               #[ sg.Button("Submit")]
             ]

    我们为 Combo 增加了 change_submits=True,意思是当它发生变化的时候,要提交 event。

    这样的话 layout[2] 中的 Button 其实就不需要了,每次 Combo 发生变化的时候,我们直接执行 Submit 按钮触发的逻辑就行了。我们原来的代码会接受除了退出(event is None) 外所有 event,所以到底是 Butto 还是 Combo 触发的就没所谓了,只要触发了就行,代码也无需做更多更改。

    来吧,成败在此一举!

    dc4ed3f32fc9e5a5fba8c4d6bd819c6a.gif

    行了!胸dei~ 我们还减少了一个按钮,这意味着用户可以少一次点击,真不错!

    TIPS
    一种软件作品哲学,“少既是多“。
    其实不止对于写程序,对职业、爱好、甚至人生,这都是一个不错的哲学,“大而全”好处没那么多,不如试试 “小而美”, 聚焦那些重要的小事儿上。

    总结

    今天内容有点紧凑啊,我并不打算做奶妈,每一步都点拨到位。学习中遇到困难,借助强大的搜索引擎,通过自己的努力解决它,才是真正的学习之路吧。

    今天成果满满:

    • 在本地搭建了开发环境
    • 使用现代化的开发工具(IDE),推荐 pycharm 或者 visual studio code。
    • 在天气预报小工具中使用中文,
    • 和下拉选择框,
    • 另外取消了 Submit 按钮,整个界面十分清爽!

    明天继续咯!

    本节源码在此

    https://github.com/JiangChuanGo/examples/blob/master/PySimpleGUIDemos/getWeatherTool/main.pygithub.com

    关注我,了解程序员的烧脑日常,还有开源的视频教程。

    a2a87ed4c75f6a68406522b15f7961db.png
    展开全文
  • vb学生成绩管理系统

    2013-06-28 08:55:24
    或者称为VB程序的逻辑数据库,通过它可以非常方便地访问其中的数据。换句话说,ADOcn是VB程序的后台数据库交互的通道。 2.设置窗体间的调用关系 2.设置窗体间的调用关系 ’调用增加课程窗体 Private ...
  • KK聊天工具源于VB

    2012-07-29 17:19:47
    VB中msgbox文本进行换行,使用 &vbcrlf;& 进行连接两行。 添加菜单弹出文本使用msgbox(" " & index) 菜单(&a)设置A为快捷键。 调用资源管理器Call Shell("explorer 这里可以再填写HTTP url地址", vbMaximizedFocus) ...
  • VB 调色板应用程序.rar

    2019-07-10 11:26:51
    VB 编写一个调色板应用程序,用滑块滑动来调色,每一个RGB基色都有一个滑块来控制,拖动滑块可改变基色值,从而改变合成后的颜色值。三基色合成值在下边的框会显示出来,你可复制这些颜色值到用到的地方,实现调色...
  • Private Sub Text1_click(Index As Integer) Dim mianji As Single mianji = 0.0061 * Form1.Text1.Text + 0.0128 * Form1.Text3.Text - 0.1529 Text1.Text = mianji FORM1已经有了变量
  • 在程序的编制和调试过程,我从中学到了很多有用的方法,比如通过本次设计,我更深刻的体会到了VB系统的方便与实用。在课程设计的过程,我对课本上的知识进行了复习,从中找出了不少盲点,由衷地感觉到学习过程...
  • str1 = lstbus.List(lstbus.ListIndex) '获取列表框的选中项(可介绍一下列表框) cnn.ConnectionString = Conn '设置数据库连接字符串 cnn.Open '打开数据库连接 Set rst.ActiveConnection = cnn '设置记录...
  • Type:关卡类型(1:故事(此时无evaluation,battle项) 2:对战(此时无text项)) RewardTag:获得的物品编号 Rarity:获得该物品的概率 #End description# #Text# @1 Background:背景相对地址 Bubble:展示...
  • 09vb复习满分:70分姓名:________1、单项选择题(本题共计40分)1...( )A、List1.AddItem“ABC”,List1.ListIndexB、List1.Text=“ABC”C、List1.List(List1.ListIndex)=“ABC”D、前三项均可2、单选按钮(OptionBut...
  • If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.AddNew Txt(0).Locked = False If FrmMain.cutable = "employee" Then DataA.Recordset.Fields(13...
  • '/* 更改数组的距离 */ For iLoop = 1 To iAddCount If ((iAddMap(iCurrename, iLoop) <> 0) And _ ((iPathLength(iLoop)) > (iAddMap(iCurrename, iLoop)) + iTotalLength)) Then iPathLength(iLoop) = ...
  • 将sms.dll文件拷贝到系统安装目录的system32文件夹,然后再根据以下接口函数说明和提供的例程源码开发 接口函数: 1、Sms_Connection(Com_Port As Integer,Com_BaudRate As Integer, Mobile_Type As String)...
  • 从...id=651416找到VB的超链接响应, 于是就改成了C#的 前台绑定代码 View Code <my:DataGridHyperlinkColumn.ElementStyle><StyleTargetType="TextBlock">...
  • MYSQL中文手册

    2013-03-11 21:21:34
    11.4.3. BLOB和TEXT类型 11.4.4. ENUM类型 11.4.5. SET类型 11.5. 列类型存储需求 11.6. 选择正确的列类型 11.7. 使用来自其他数据库引擎的列类型 12. 函数和操作符 12.1. 操作符 12.1.1. 操作符优先级 ...
  • <div class="post-text" itemprop="text"> <p>I'm creating a development environment using <strong>Vagrant</strong> with this dependencies: <li>PHP7; <li>Nginx 1.9; <li>Laravel 5.3. <p>The ...
  • 16.3.1 VBIDE的进程内组件597 16.3.2进程内组件和进程外组件之间的差别598 16.3.3在DLL嵌入Forms600 16.3.4特性602 16.3.5用Satellite DLL扩展应用程序603 16.4多线程ActiveX组件607 16.4.1线程模型607 16.4.2多...
  • 16.3.1 VBIDE的进程内组件597 16.3.2进程内组件和进程外组件之间的差别598 16.3.3在DLL嵌入Forms600 16.3.4特性602 16.3.5用Satellite DLL扩展应用程序603 16.4多线程ActiveX组件607 16.4.1线程模型607 16.4.2多...
  • 11.4.3. BLOB和TEXT类型 11.4.4. ENUM类型 11.4.5. SET类型 11.5. 列类型存储需求 11.6. 选择正确的列类型 11.7. 使用来自其他数据库引擎的列类型 12. 函数和操作符 12.1. 操作符 12.1.1. 操作符优先级 12.1.2. 圆...
  • MySQL 5.1中文手冊

    2009-12-11 09:43:12
    11.4.3. BLOB和TEXT类型 11.4.4. ENUM类型 11.4.5. SET类型 11.5. 列类型存储需求 11.6. 选择正确的列类型 11.7. 使用来自其他数据库引擎的列类型 12. 函数和操作符 12.1. 操作符 12.1.1. 操作符优先级 12.1.2. 圆...
  • mysql5.1中文手册

    2008-01-09 09:54:20
    BLOB和TEXT类型 11.4.4. ENUM类型 11.4.5. SET类型 11.5. 列类型存储需求 11.6. 选择正确的列类型 11.7. 使用来自其他数据库引擎的列类型 12. 函数和操作符 12.1. 操作符 12.1.1. 操作符...
  • 解析xml缺少的属性

    2012-03-10 08:50:08
    <div class="post-text" itemprop="text"> <p>I have an xml output ...listings bathroom_number="" bedroom_number="0" datasource_name="PropertyIndex" guid="g1-TNtMDN5YDO3EQO==" img_height="120" img_url=...
  • 11.4.3. BLOB和TEXT类型 11.4.4. ENUM类型 11.4.5. SET类型 11.5. 列类型存储需求 11.6. 选择正确的列类型 11.7. 使用来自其他数据库引擎的列类型 12. 函数和操作符 12.1. 操作符 12.1.1. 操作符优先级 12.1.2. 圆...
  • 同时,系统还提供功能完善的API,可以在应用程序调用这些API来实现与数据库系统的连接以及相关数据的操作。sp3是该系统的一个版本号,只有sp4以上的SQL 2000系统才能够支持纯ODBC连接方式。 Vb6.0功能强大的应用...
  • 商品销售源码

    2012-06-28 22:07:43
    Begin VB.TextBox Text1 Height = 300 Left = 2715 TabIndex = 7 Top = 225 Width = 4380 End End Begin TabDlg.SSTab SSTab1 Height = 4785 Left = 90 TabIndex = 12 Top = 690 Width = 9030 _...
  • FCK导入WORD项目

    2012-03-21 18:09:35
    对于大多数用户来说,将Word的图片上传到Web服务器来说是一件非常不方便的事情,许多情况下用户甚至需要手动将一张张图片上传到Web服务器,这些重复操作将会浪费用户的许多时间。 现在新颖网络发布了Word图片...
  • columnTextLabel.Text = e.Row.Cells[columnIndex].Text; e.Row.Cells[columnIndex].Controls.Add(columnTextLabel); } } } // Give each row an id if (e.Row.RowType == DataControlRowType.Pager) e.Row...

空空如也

空空如也

1 2 3
收藏数 52
精华内容 20
关键字:

vb中textindex