一是数据库放两个表,车站表和线路表,然后只能在车站列表中选择输入条件,用线路关联查询,特点:成本低实现简单,是个程序员就差不多.
一是数据库放两个表,车站表和线路表,然后只能在车站列表中选择输入条件,用线路关联查询,特点:成本低实现简单,是个程序员就差不多.
上午弟弟问我这个问题:有一段字符串
111111+22222+33333333+44444+55555+66666…
如何得到任意两个符号”+”之间的字符串,譬如
22222
或者
33333333
以下为代码全过程,函数为增强版,支持任意字符,只需要在调用的时候修改参数就OK了,代码注释中已经有描述:
新建工程在窗体上放置两个TextBox控件和一个Command控件,名称不需要修改默认就OK,分别名为:text1.text text2.text 和 command1
然后复制以下代码:
Private Sub Command1_Click()
Text2.Text = GetChar(Trim(Text1.Text), "+", 1, 3)
End Sub
'函数使用方法： getchar(mStr:原始字符,charX:规律字符,比如截取两段加号之间的那么就输入"+",
'BofNum: 起始字符位, EofNum: 终点字符位)
Private Function GetChar(mStr As String, charX As String, BofNum As Integer, EofNum As Integer) As String
Dim i As Integer '循环
Dim x As Integer [...]
函数
'生成指定范围的随机数
'NumMin 起始值 NumMax 终点值
Function MyRnd(NumMin, NumMax)
Randomize
MyRnd = Int(Rnd * (NumMax - NumMin + 1)) + NumMin
End Function
使用方法
新建工程,在窗体上拖上一个按钮 command1和一个文本框text1
输入以下代码
Private Sub Command1_Click()
Text1.Text = MyRnd(1, 10) '生成1-10之间的随机数
End Sub
前段时间在落伍把网页照相机落伍版的编译出来的可执行程序发布了,很多朋友提出需要源代码,方便大家学习交流,今天提供源代码下载
新建窗体,然后拉个Command按钮控件和Textbox文本控件就OK了!
注意:本模块获取的是当前机器的内网IP地址
其实也用的是API来实现的,下面是主要代码…
点了锁定了之后,鼠标不能移动到解除按钮上可别慌噢:dm/tx,记得用键盘的tab键盘或者方向键移动下就是啦:dm/tx
一个简单的通过修改注册表设置IE首页的方法,别用它来做流氓哦
记得以前遇到过一个流氓,篡改IE首页,然后在IE选项中主页设置里面禁止了[使用当前页][使用默认页][使用空白页]这几个按钮.其实这些个人认为也都可以通过修改注册表来实现的.
在图象图形的编程中, 经常会见到渐变色以及各种图片的叠加等效果. 这篇文章就是要对这些效果的原理加以分析, 并在Elastos© 操作系统 Mobile Edition SDK上和Windows 200 Professional上使用Visual C++ 6.0 编程实现.
让VB中的MSHFlexGrid的宽度自动调整和隔行换色的实现
最近评论