请问有没有位vb高手知道怎么用vb语言实现字符位移?请给出详细的程序语言,就是直接复制就可以运转的,急~
在学编译原理吗?逐字符取出分析可以了,
dim s as string
dim pos as Long
mid(s,pos)就是pos那个位置的字符了
1.
直接改变VScroll1.Value,如:
Private Sub Timer1_Timer()
VScroll1.Value = VScroll1.Value + 1
End Sub
2.
用RGB函数(根据VScroll1.Value)
RGB 函数
返回一个 Long整数,用来表示一个 RGB 颜色值。
语法
RGB(red, green, blue)
RGB 函数的语法含有以下这些命名参数:
部分 描述
red 必要参数;Variant (Integer)。数值范围从 0 到 255,表示颜色的红色成份。
green 必要参数;Variant (Integer)。数值范围从 0 到 255,表示颜色的绿色成份。
blue 必要参数;Variant (Integer)。数值范围从 0 到 255,表示颜色的兰色成份。
说明
可以接受颜色说明的应用程序的方法和属性期望这个说明是一个代表 RGB 颜色值的数值。一个 RGB 颜色值指定红、绿、蓝三原色的相对亮度,生成一个用于显示的特定颜色。
传给 RGB 的任何参数的值,如果超过 255,会被当作 255。
下面的表格显示一些常见的标准颜色,以及这些颜色的红、绿、蓝三原色的成份:
颜色 红色值 绿色值 兰色值
黑色 0 0 0
兰色 0 0 255
绿色 0 255 0
青色 0 255 255
红色 255 0 0
洋红色 255 0 255
黄色 255 255 0
白色 255 255 255
3.
Private Sub Form_Load()
Image1.Visible = False
End Sub
Private Sub Timer1_Timer()
if VScroll1.Value<VScroll1.Max then
VScroll1.Value = VScroll1.Value + 1
else
Image1.Visible =True
End Sub
4.
Image1的Picture属性或用Image1.Picture=loadPicture("图片的路径")
LoadPicture 函数
将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。
语法
LoadPicture([filename], [size], [colordepth],[x,y])
LoadPicture 函数语法有下列部分:
部分 描述
filename 可选的。字符串表达式指定一个文件名。可以包括文件夹和驱动器。如果未指定文件名,LoadPicture 清除图象或 PictureBox 控件。
size 可选变体。如果 filename 是光标或图标文件,指定想要的图象大小。
colordepth 可选变体。如果 filename 是一个光标或图标文件,指定想要的颜色深度。
x 可选变体,如果使用 y ,则必须使用。如果 filename 是一个光标或图标文件,指定想要的宽度。在包含多个独立图象的文件中,如果那样大小的图象不能得到时,则使用可能的最好匹配。只有当 colordepth 设为 vbLPCustom 时,才使用X 和 Y值。For icon files 255 is the maximum possible value
y 可选变体,如果使用 x, 则必须使用。如果 filename 是一个光标或图标文件,指定想要的高度。在包含多个独立图象的文件中,如果那样大小的图象不能得到时,则使用可能的最好匹配。For icon files 255 is the maximum possible value
设置值
size 的设置值为:
常量 值 描述
vbLPSmall 0 系统小图标。
vbLPLarge 1 系统大图标,由视频驱动程序决定。
vbLPSmallShell 2 外壳小图标大小,由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的 Caption Buttons 的大小设置决定。
vbLPLargeShell 3 外壳大图标大小,由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的图标大小设置决定。
vbLPCustom 4 自定义大小,由 x 和 y 参数提供值。
colordepth 的设置值为:
常量 值 描述
vbLPDefault 0 如果使用指定文件,则为最佳可用匹配。
vbLPMonochrome 1 2 色。
vbLPVGAColor 2 16 色。
vbLPColor 3 256 色。
说明
Visual Basic 可以识别的图形格式有:位图 (.bmp) 文件、图标 (.ico) 文件、光标 (.cur) 文件,行程编码 (.rle) 文件、元 (.wmf) 文件、增强的元文件 (.emf), GIF(.gif) 文件以及 JPEG (.jpg) 文件。
赋值不带参数的 LoadPicture 将清除窗体、图片框及图象控件中的图形。
为了加载在 PictureBox 控件和 Image 控件中显示的图形或加载作为窗体背景的图形,必须将 LoadPicture 的返回值赋给要显示该图片的对象的 Picture 属性。例如:
Set Picture = LoadPicture("PARTY.BMP")
Set Picture1.Picture = LoadPicture("PARTY.BMP")
如果要将图标赋予窗体,则要把 LoadPicture 函数的返回值赋给 Form 对象的 Icon 属性:
Set Form1.Icon = LoadPicture("MYICON.ICO")
图标也可以被赋予除 Timer 控件和 Menu 控件外的其它控件的 DragIcon 属性,例如:
Set Command1.DragIcon = LoadPicture("MYICON.ICO")
使用 LoadPicture 可将图形文件载入到系统剪贴板,如下所示:
Clipboard.SetData LoadPicture("PARTY.BMP")
Dim i As Integer
If tag Then
For i = m To UBound(a) - 1
movestr = movestr & a(i)
Next
For i = 0 To m - 1
movestr = movestr & a(i)
Next
Else
For i = UBound(a) - m + 1 To UBound(a) - 1
movestr = movestr & a(i)
Next
For i = 0 To UBound(a) - m
movestr = movestr & a(i)
Next
End If
End Function
求vb高手帮忙解答!事后追加,显示悬赏分我的问题就出不来,浪费了100多...
Private Sub Dir1_Change()File1.Path = Dir1.Path End Sub Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click()Picture1.Picture = LoadPicture(Dir1.Path & "\\" & File1.FileName)Text1 = Dir1.Path & File1.FileName End Sub Private Sub Form...
vb高手来一下
在菜单栏中,选择【文件】|【生成(工程名).exe...】,随后会弹出一个“生成工程”对话框,如图:若没有特殊要求,则可以直接在其中选择保存路径并设置文件名,然后编译;也可以单击对话框右下角的“选项”按钮,随后弹出工程属性对话框,可以设置更多编译信息(编小程序就用不着了),如图:生成 选项...
问个VB高手clnt函数
clnt函数:CInt即返回表达式,此表达式已被转换为 Integer 子类型的 Variant。说明:有时候,我们发现vbs使用inputbox赋值后是字符串。计算a+b会导致a、b连接。如a=12,b=33,a+b=1233 我们使用cint把a,b改为整数就行。dim a,b,plus a=inputbox("please input a number as a")b=inputbox("...
求助!新手求助,关于vb编程问题。敬请VB高手指点!
用数组形式 for i=1 to 100 text1(i).text=i next
招vb高手
没人能留下的,去买本vb的书,慢慢学它的语法,vb语法代码非常多,一个代码又有很多写法,光告诉你你也看不懂,用不通。
VB高手来帮忙啊
Private Sub Timer1_Timer() '计时器事件 SetForegroundWindow Form1.hwnd '把窗体1 设置在最前端 Timer1.Enabled = False '计时器停止 End Sub 不过SetForegroundWindow Form1.hwnd '把窗体1 设置在最前端 没作用在xp中
VB 希望高手帮帮忙 谢谢
mnueditcls.Checked = False '把它设成没有钩选 Text1.Text = "" '清空文本框 Text2.Text = ""Else '如果没有钩选 mnueditcls.Checked = True '把它钩选 End If End Sub Private Sub mnueditcopy_Click()'If Text1.SelLength > 0 Then ' Clipboard.SetText Text1.SelText ...
vb作业 急求VB高手!!!1
文件清单:=== ★★★form1.frm VERSION 5.00 Begin VB.Form Form1 Caption = "Form1"ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 3690 LinkTopic = "Form1"ScaleHeight = 3090 ScaleWidth = 3690 StartUpPosition = ...
关于VB想请教下高手,VB高手有兴趣的都进来看看!问题内详!
这样就好处理了,就有了第一秒,第二秒……。剩下的就用你描述的算法去除干扰后平均就可以了。其实我觉得,你的滤波输出不一定非要取得前5秒的数据。因为你前5秒的算法和第6秒之后的算法本身就不同,前5秒的滤波输出数据其实也是没有意义的。假如信号足够长,前几个数据丢掉应该是可以的。
VB高手 来帮忙!
什么是API\/怎样在VB中声明和使用API函数 (简单来说,API就是应用程序接口)一、在VB中声明API函数有两种方法:如果我们只在某个窗体中使用API函数,我们可以在窗体代码的General部分声明它:声明的语法是:Private Declare Function ...Private Declare Sub...这里必须采用Private声明,因为这个API函数只能被...
彩娇瑞培: 一个典型的VB进程VB的中心思想就是要便于程序员使用,无论是新手或者专家.VB使用了可以简单建立应用程序的GUI系统,但是又可以开发相当复杂的程序.VB的程序是一种基于窗体的可视化组件安排的联合,并且增加代码来指定组建的属...
伊宁市17888697830: 哪位高手知道如何使用用VB编好的程序(详细点啊!) - ?
彩娇瑞培: 如果没有打包的话,一定会有个后缀是VBP的工程文件,你打开那个,所有的文件都会自动加载,但是前提是你必须有VB6.0,如果没有安装的话就没办法了,不过可以直接用记事本打开查看代码的 打了包的话就想普通的安装文件一样进行安装就可以了
伊宁市17888697830: vb怎样用? - ?
彩娇瑞培: insock control 6.0 就会出现一个小电视一样的控件在工具栏 点击它 按放在form窗体上就可以了 如果想建立连接请看下面转载 说是木马可能功能少了点,主要讲解双机通讯方法!首先想要实现的功能是用VB写两个程序,一个是服务 器端,一个...
伊宁市17888697830: 新手玩vb,高手来帮忙!!?
彩娇瑞培: 呵呵,其实vb你只要用心去理解代码,其实并不难,它算是比较简单但不简陋的编程语言.不多说了,现在就开始. 打开vb,它会出现一个对话框,你选中“标准exe”(当然默认就是这个了,你不用动),点确定.好了你会看见vb的主窗口包...
伊宁市17888697830: VB高手来啊... - ?
彩娇瑞培: Private Sub Command1_Click()Open "D:\VB.txt" For Append As #1Print #1, Text1.TextClose #1 End SubAppend 表示追加
伊宁市17888697830: 谁能教教我用VB 我新手 高手那就最好了?
彩娇瑞培: 看书是必不可少的,然后要多敲代码(特别像书本上的简单代码要经常敲),敲完代码后自己要试着修改代码(把某些代码的位置颠倒,把某些代码删除等等),此时你一定会发现许多问题,接着就是解决这些问题(自己看书,找老师等等)...
伊宁市17888697830: 跪求VB大神指点VB代码如何编译运行!!! - ?
彩娇瑞培: Adodc1 这是一个控件"select * from ma where (ma.操作员 like " + Chr(34) + Combo1.Text + Chr(34) + ")" 这个是sql语句 . frm_main.Show这些是关联的窗体.并不是要代码就够了 ,需要代码中相应的控件 , 数据库,记录集,按钮,窗体......等等 要在vb里面进行窗体设计.把代码中出现过的控件名字都给放到窗体上去才行.必须要一整套完整的程序. 如果确定一切都存在,那点击vb软件上面的菜单栏 有个三角符号那个是运行.
伊宁市17888697830: 我想用vb编个程序,但是总体思路和步骤不会,那位高手能帮我??
彩娇瑞培: 表示只会VB基础...调用啥的不会.思路应该是提取当前活动窗口字体,当截取到“打开QQ”几个字的时候,调用QQ安装目录下的EXE程序
伊宁市17888697830: 有谁知道用VB?
彩娇瑞培: 语言跟环境要搞清楚,VB用的是BASIC语言, 有所不同的是, VB里面的BASIC比以往的QUICK BASIC更先进一点, 有点面向对象的味道了! VC用的是C/C++语言 IF语句每个程序语言里应该都有的, 由C语言发展过来的叫C系语言比如C++, JAVA,C#, 很相似的现在有这几种,其实大多数的语言都是C语言发展过来的