![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VB
文章平均质量分 64
limon758
这个作者很懒,什么都没留下…
展开
-
VB 查询Oracle中blob类型字段,并且把blob中的图片以流的方式显示在Image上
[code="c"]Public Sub Combo1_Click()Dim adoCnn As ADODB.Connection Dim rstOra As ADODB.Recordset Dim intI As Integer Set adoCnn = New ADODB.Connection Set rstOra = New ...原创 2009-10-26 11:05:43 · 429 阅读 · 0 评论 -
VB 把整型转换成字符串,不等于的表示方法,截取字符串,循环的写法,跳出循环,数组的声明和赋值...
[color=red]把整型转换成字符串[/color]CStr(int)[color=red]不等于的表示方法[/color][color=red]截取字符串[/color]从左截取left$(字符串,n):n是要截取的字符个数从中间截取Mid$(字符串,p,n):表示从第p个字符开始截取n个字符从右截取Right$(字符串,n):表示截取字符串的...2009-10-26 16:03:57 · 967 阅读 · 0 评论 -
vb ComboBox 动态选择值,根据值选择默认值,传入一半值显示完整值
Combo1 里有的值为"01:QQ""04:MSN""09:Fetion""023:黑色头发""234:紫色头发""567:java""1000:c#"然后传来一个值"023",Combo1在窗体加载时就默认显示"023:黑色头发"[code="c"]Combo2009-10-26 17:36:06 · 466 阅读 · 0 评论 -
VB 判断Check复选框是否被选中,删除数组中的一个值,创建动态数组,获得数组大小,创建一个返回数组型的函数,删除本地图片...
[color=red]判断Check复选框是否被选中[/color]Check1.Value为1是选中,为0是没选中[code="c"]If Check1.Value = 1 ThenMsgBox "选中"End If[/code][color=red]删除数组中的一个值[/color]比如数组xh中有10个值,现删除第5个值[code="c"]Di...2009-10-27 19:23:00 · 934 阅读 · 0 评论 -
VB 使用从数据库中查出来的二进制流文件在本地生成图片
[code="c"]Public Function Load_Image_Text(xh As String)'---------------从这开始是读取出图片--------------- Dim adoCnn As ADODB.Connection Dim rstOra As ADODB.Recordset Dim intI As Integer ...2009-10-27 19:32:13 · 736 阅读 · 0 评论 -
VB 删除数据库中的记录
[code="c"]Public Function del_Temp(xh As String) As Boolean Dim cnora As ADODB.Connection Set cnora = New ADODB.Connection cnora.Open "Provider=ORAOLEDB.ORACLE.1;Password=up...2009-10-27 19:34:44 · 844 阅读 · 0 评论 -
VB 检测图片有没有加上防篡改的水印,引入DLL控件
首先把water.bmpWaterDll.dll拷贝到Windows/System32下或者其他文件夹下,拷贝到系统文件夹的话就可以不用写全路径引入了,否则引入要写全路径再引入DLL在模块文件里引入[code="c"]Public Declare Function PicWaterMark Lib "WaterDll.dll" Alias "_WaterMark@8" (B...2009-10-27 19:40:29 · 158 阅读 · 0 评论 -
VB 检查文件是否存在本地硬盘中
[code="c"]Dim fs As New FileSystemObjectIf fs.FileExists("D:\*.jpg") Then '可以用通配符,或者固定文件名 MsgBox "文件存在" Kill ("D:\tempCG.jpg")Else MsgBox "文件不存在" End If[/code]黑色头发:http://h...2009-10-28 09:25:03 · 171 阅读 · 0 评论 -
VB VB6编译器突然出错,只能看代码,一点开查看对象视图就强制关闭,安装VB6SP6补丁即可...
补丁下载地址:[url]http://www.microsoft.com/downloads/details.aspx?FamilyID=9ef9bf70-dfe1-42a1-a4c8-39718c7e381d&DisplayLang=zh-cn[/url]黑色头发:http://heisetoufa.iteye.com/2009-10-28 13:55:17 · 1123 阅读 · 0 评论