VB编程的必备技巧(3)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:54 来源：互联网

本文章共7069字，分5页，当前第3页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《VB编程的必备技巧(3)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Form-Load()
Picture2.Left = 0
Picture2.Top = 0
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
VScroll1.Min = 0
HScroll1.Min = 0
HScroll1.Min = 0
VScroll1.Max = Picture2.Height － Picture1.Height
HScroll1.Max = Picture2.Width － Picture1.Width
If HScroll1.Max 〈 0 Then HScroll1.Enabled = False
If VScroll1.Max 〈 0 Then VScroll1.Enabled = False
End Sub
Private Sub Command-Click()
On Error GoTo ErrExit
CommonDialog1.Filter =
"Bitmap file(＊.bmp)¦＊.bmp¦All File(＊.＊)¦＊.＊"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
Picture2.Picture = LoadPicture(CommonDialog1.filename)
VScroll1.Min = 0
HScroll1.Min = 0
VScroll1.Max = Picture2.Height － Picture1.Height
HScroll1.Max = Picture2.Width － Picture1.Width
If HScroll1.Max 〈 0 Then HScroll1.Enabled = False
If VScroll1.Max 〈 0 Then VScroll1.Enabled = False
ErrExit:
End Sub
Private Sub HScroll1-Change()
Picture2.Left = －HScroll1.Value
End Sub
Private Sub VScroll1-Change()
Picture2.Top = －VScroll1.Value
End Sub
---- 该程序通过点击Command1按钮，在弹出的对话框中选择一个图形文件加载到Picture2中，利用水平和垂直滚动条就可以实现图片的滚动。
---- 六.用VB做聊天程序的方法

---- 所谓"聊天"是指两个程序能够发送数据给对方。这个程序涉及到数据通讯的知识，仿佛很复杂，不过，由于VB给我们提供了一个Winsock控件，问题就变得很简单了。

---- 先编写"聊天（主机）"程序。在窗体里添加Winsock控件，并设置其Protocol属性为1－SckUDPProtocol，其他属性为缺省值。接着添加两个标签和两个文本框，设置两个标签的标题属性分别为"接收窗"和"发送窗"；两个文本框的标题属性为空。最后编写代码：

---- 1."聊天（主机）"

Private Sub Form-Load()
′设置网络地址
Winsock1.LocalPort=1024
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1999
End Sub
Private Sub Text1-Change()
′发送用户输入的内容
Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1-DataArrival
(Byval bytesTotal As Long)
Dim rec As String
′接收对方数据并在文本框内显示
Winsock1.GetData rec, vb String
Text2.Text=rec
End Sub

---- 2."聊天（副机）"

Private Sub Form_Load()
′设置网络地址
Winsock1.LocalPort=1999
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1024

---- 其他部分程序与（主机）相同。最后将两个程序存盘，并编译成执行（.Exe）文件。现在就可以使用这个程序进行对话了。
---- 七.文本框中文本的某一特定字符或字符串同时高亮显示的方法

---- 由于普通TextBox控件不支持不连续字符串的同时高亮显示，所以我们选择RichTextBox控件。单击工程（Project）选单项，在弹出的下拉选单中单击组件（Components）选单项，从弹出的对话框中选择Microsoft Rich Textbox Control 5.0复选框，确定加载RichTextBox控件。

---- 新建（New）一个工程，在窗体（Form）上添加一个RichTextBox控件和两个Command（按钮）控件，都采用系统默认的Name属性值；设置RichTextBox的Text属性值为空，Command1和Command2的Caption属性值分别设为"输入文本"和"选择字符串"。最后，添加如下VB代码：

Private Sub Command1-Click()
Dim str As String
Dim Text As String

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 下一页>>

本页地址