title=replace(title," "," ")
title=replace(title," ","")
title=replace(title,chr(32),"")
title=replace(title,chr(13),"")
title=replace(title,chr(10),"")
title=replace(title,chr(9),"")
tit ......
function config(zd)
set rsnewsx = Server.CreateObject("ADODB.RecordSet")
rsnewsx.Open "select "&zd&" from [config]",conn,1,1
config=rsnewsx(""&zd&"")
rsnewsx.close
set rsnewsx=nothing
end function
另� ......
第一题： 实现按钮的隐藏和不可用
第二题：实现字符的匹配
第三题： 实现数值的加减乘除,
第四题、当启动窗体时，窗体背景色为蓝色，并且在窗体上移动鼠标时，打印红色的”好好学习，天天向上”
第五题、自动随机产生两个数，范围50~150,当两者之合为200时，停止产生随机数。将结果显示在� ......
下面是一个游戏修改器中拿出来的一段程序：
'转换数字为字符串后进行内存搜索
Private Function ConvertNumberToString(number As Double) As String
If number < 256 Then
ConvertNumberToString = Chr(number)
Exit Function
End If
......
小弟初学vb，照书本上搞了一个 文件检索系统 ，代码如下
Private Sub Form_Initialize() '
Dim i As Integer
For i = 1 To Data1.Recordset.Fields.Count - 2
Combo1.AddItem Data1.Recordset.Fields(i).Name
Next
Combo1.ListIndex = 0
Combo2.Lis ......
怎样把一个文件的文件名拿到？
比如：想把“D：\电影\变形金刚[2008fasdfa].asdfasd.fsdf.rmvb”中的文件名（即“变形金刚[2008fasdfa].asdfasd.fsdf”）拿到，怎样实现？
VB code:
Private Sub Command1_Click()
Dim a() As String
Dim b() As String
Dim strT As String
strT = " ......
最新文章 : vb