Question

问几个关于VB的问题

1:我在VB中把最大化的按键设置为不可用,窗体就不能最大化了,窗体的大小也就固定了,但是,我用鼠标点击右下角的时候,仍然可以把窗体的大小随意拉大拉小,怎么可以让他因定,并不能改变窗体其大小(必须最小,最大,关闭三个按钮都在的情况下)

2:如果说在VB中添加了媒体播放器这个控件的时候,鼠标经过该控件的时候,该控件就会闪动,很不美观,如何解决!

3:我在用winsock控件编局域网聊天工具的时候,一切写好了,但是聊天的时候,说什么"远程路由将被重新设置",然后就关闭了,请问如何解决....
一个最简单的聊天软件应该如何编写,用UDP写的,开两个端口,在一个计算机上聊天的那种...谢谢大家.
小小分数不成敬意..~!
那个叫“真难啊WB“的家伙，我不想骂你，你以为你很厉害啊！有什么资格说别人啊，真是受不鸟你了，你不回答没人把你当死人，学习阶段谁不是这样啊，你TM一出世就会编程啊。如果真的是这样，恭喜你MOTHER，生出一个怪胎了

Answer 1

1.把窗体的BorderStyle属性设置为1 (vb常数 vbFixedSingle=1) ,maxbutton,和minbutton属性设为true就可以了!

2.媒体播放器这个控件随着wmp版本的升级也是升级的!我以前用7.0,9.0,10.0都没发现这个问题,8.0没试过...不好说!vb里关于控件闪动没什么太好的解决办法。

1 和2 照搬上面的。别介意。他说的对的

Option Explicit
Private IgnoreText As Boolean

\'----------------------各控件说明----------------------------
\'--名称-------------类型---------------作用------------------
\'frmMain Form CHAT主窗体
\'Winsock1 Winsock 连接控件
\'Label1 Label CONNECT WITH IP标签
\'Label2 Label LOCAL PORT标签
\'Label3 Label REMOTE PORT标签
\'txtRemoteIP TextBox 远程IP地址输入框
\'txtLocalPort TextBox 本地PORT输入框
\'txtRemotePort TextBox 远程PORT输入框
\'cmdConnect CommandButton 连接CONNECT按钮
\'Label4 Label Type your text and hit Enter to send it.标签
\'Frame1(remoteip) Frame REMOTE IP 框架
\'Frame2(host ip) Frame HOST IP 框架
\'Text1 TextBox 显示对方（远程主机）发送的CHAT内容
\'Text2 TextBox 输入己方（本地主机）要发送的CHAT内容，按ENTER键发送
\'cmdClear CommandButton 清空输入框（TEXT2）和显示框（TEXT1）中的内容
\'StatusBar1 StatusBar 状态栏
\'-----------------------------------------------------------

\'当CLEAR按钮按下时，清空TEXT1和TEXT2中的内容
Private Sub cmdClear_Click()
Text1 = ""
With Text2
\'清空输入框
.Text = " "
\'并把焦点置于TEXT2
.SetFocus
End With
End Sub

\'当CONNECT按钮按下时，进行以下操作
Private Sub cmdConnect_Click()
On Error GoTo ErrHandler

With Winsock1
\'设置 RemoteHost 属性
.RemoteHost = Trim(txtRemoteIP)
\'设置 RemotePort 属性
\'RemotePort 属性的值应该等于 远程主机上的 LocalHost 属性的值
.RemotePort = Trim(txtRemotePort)
\'LocalPort 属性的值是不能改变的,必须检查它是否已经被设置
\'如果 LocalPort 属性为空（没有被设置），将其设为在LocalPort输入框中输入的数值
If .LocalPort = Empty Then
.LocalPort = Trim(txtLocalPort)
Frame2.Caption = .LocalIP
.Bind .LocalPort
\'待查
End If
End With

\'为了保证使用者不能改变LocalPort的值，将txtLocalPort输入框锁定
txtLocalPort.Locked = True
\'在状态栏中显示“正在连接”的状态
StatusBar1.Panels(1).Text = " Connected to " & Winsock1.RemoteHost & " "
\'如果连接正常，做以下设置
Frame1.Enabled = True
Frame2.Enabled = True
Label4.Visible = True
Text2.SetFocus
Exit Sub
\'如果在连接过程中出现错误，则转向ErrHandler:，并显示错误提示
ErrHandler:
MsgBox "Winsock failed to establish connection with remote server", vbCritical
End Sub

\'当按下“F1”键时显示帮助信息
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
ChDir App.Path
\'调用外部程序notepad.exe来打开帮助文本文件
Shell "notepad.exe readme.txt", vbNormalFocus
End If

End Sub

\'当窗体加载时显示提示信息并在 txtRemoteIP 框中显示本地主机的IP
Private Sub Form_Load()
Show
MsgBox "Winsock UDT Chat" & vbCrLf & "by Theo Kandiliotis (ionikh@hol.gr)" & vbCrLf & vbCrLf & "F1 for help.", vbInformation
txtRemoteIP = Winsock1.LocalIP
End Sub

\'接收TEXT2输入框的按键，并做响应
Private Sub Text2_KeyPress(KeyAscii As Integer)

\'定义变量 Last_Line_Feed 来记录最后输入行的位置
Static Last_Line_Feed As Long
\'定义 New_Line 字符串记录新键入的一行文本的内容
Dim New_Line As String
\'如果使用者按下CLEAR按钮对输入框内容清空，这时TEXT2为空，则重设最后输入行的位置为0
If Trim(Text2) = vbNullString Then Last_Line_Feed = 0
\'当使用者按下ENTER键时
If KeyAscii = 13 Then
\'取得最后输入行的内容并赋值给 New_Line 字符串
New_Line = Mid(Text2, Last_Line_Feed + 1)
\'重设最后输入行的位置
Last_Line_Feed = Text2.SelStart
\'通过 WINSOCK 发送新输入的一行文本的内容
Winsock1.SendData New_Line
\'在状态栏显示发送信息
StatusBar1.Panels(2).Text = " Sent " & (LenB(New_Line) / 2) & " bytes "
End If

End Sub

\'当 WINSOCK 接收到新的数据（信息）时，进行以下响应
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
\'定义 New_Text 字符串来记录新接收的信息
Dim New_Text As String
\'接收信息并赋值给 New_Text
Winsock1.GetData New_Text
\'在TEXT1显示框中显示新接收到的信息
Text1.SelText = New_Text
Frame1.Caption = Winsock1.RemoteHostIP
\'在状态栏中显示接收信息
StatusBar1.Panels(2).Text = " Recieved " & bytesTotal & " bytes "
End Sub

\'---------------------------------------------------------------------------
\'这就是一个最简单的CHAT程序，你可以在它的基础上加以改进，做出更实用的CHAT小软件。
\'---------------------------------------------------------------------------

Answer 2

1.把窗体的BorderStyle属性设置为1 (vb常数 vbFixedSingle=1) ,maxbutton,和minbutton属性设为true就可以了!

2.媒体播放器这个控件随着wmp版本的升级也是升级的!我以前用7.0,9.0,10.0都没发现这个问题,8.0没试过...不好说!vb里关于控件闪动没什么太好的解决办法。

3.既然你用了winsock控件,你的程序应该不会出现这样的提示,只可能与系统有关,大多数情况是你把“Remote Registry Service”给禁掉了。所以不能打开路由配置。现在要是用,2000,xp会这样提示!建议你调试程序的时候把连接的ip设置成127.0.0.1 在本级开1客1服,然后调试程序

Answer 3

我靠啊`~~VB这类问题也要上百度啊有没有智商可言了啊 ‘～～～
晕～～～楼上的竟然还要从QQ里教人家，晕～～～～
简单的问题竟然回答的那么费劲～～～～唉，这现在人的智商真实够可以的了～～～～～
几句话就可以阐明的，竟然还要拐弯抹角的回答～～～我就靠啊‘～～
UDP那个东西没用～～～只要你把COU的格式改变就可以～～然后再用抹布擦一下显示器，再把键盘扣过来敲敲里面的烟灰就能用了～～～
如果还不行的话找维修站，反厂重修一下，要是你觉得屏幕晃眼睛，就带上个墨镜～～～UDP 就是UFO和DOS和PHOTO的开头字母～～创建一个文件夹，下载一个CS1.6就可以玩了～～～

Answer 4

第一个问题可以解决
比如要窗体为8280*8295,则:

Private Sub Form_Resize()

On Error GoTo xzp1984
Form1.Width = 8280
Form1.Height = 8295
xzp1984:

End Sub

其他的就爱莫能助了~

Answer 5

我会 但是比较麻烦 你QQ多少我可以教你