189 8069 5689
vb点虐 是基于.NET框架的完全对向对象的编程语言，而vb 6.0只是半面向对象的语言，使用vb点虐 可以编制出功能更加强大的windows程序。现在，我们把vb点虐 和vb 6.0做一下比较，看看vb点虐 对比vb 6.0有着什么样的特性和优点。 1.在vb 6.0中，创建对象的时候，需要等这个对象创建完毕后，再另外调用一个独立的方法对其进行初始化。在vb点虐 中， 可以利用构造函数为对象赋初值，这样就不需要进行烦琐的调用赋初值了。构造函数的使用，简化了编码的过程和出错的机会。 2.vb点虐 编写线程的能力比vb 6.0有很大的增强。 3.在vb 6.0中，需要首先声明一个变量，然后才能对其赋值，这样就需要写两行代码。在vb点虐 中，可以 使用初始化函数将这两个步骤合并在一行代码中完成，这个似乎微小的改进，提供了更少、更简单、更易于维护的代码。 4.vb点虐 基于.NET框架，开发者可以快速的可视化开发网络应用程序、网络服务、Windows应用程序和服务器端组件。 5.因为vb点虐 是基于.NET框架的，可以与其它.NET语言协同工作。 6.在vb点虐 中，通过Web窗体及ADO.NET，开发者可以快速开发可扩展的Web站点。 如果你能进一步学习vb点虐 ,你会发现更多的新特性和优点。
创新互联服务项目包括尼勒克网站建设、尼勒克网站制作、尼勒克网页制作以及尼勒克网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，尼勒克网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到尼勒克省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
用 vb点虐 socket通信
Dim th As Threading.Thread
2 Dim tcpl As System.Net.Sockets.TcpListener
3
4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))
6 th.Start()
7 End Sub
8
9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)
10 Try
11 If IP "" Then
12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)
13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream
14 Dim reqStream As New IO.StreamWriter(tcpStream)
15 reqStream.Write(SendMsg)
16 reqStream.Flush()
17 tcpStream.Close()
18 tcpc.Close()
19 End If
20 Catch ex As Exception
21 MsgBox(ex.Message.ToString)
22 End Try
23 End Sub
24 Private Sub MyListen()Sub MyListen()
25 Try
26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)
27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)
28 tcpl.Start()
29 While True
30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()
31 Dim MyBuffer(1024) As Byte
32 Dim i As Integer
33 i = s.Receive(MyBuffer)
34 If i 0 Then
35 Dim lstrRec As String
36 Dim j As Integer
37 For j = 0 To i - 1
38 TextBox1.Text += Chr(MyBuffer(j)) ","
39 Next
40 End If
41 End While
42 Catch ex As Exception
43 MsgBox(ex.Message.ToString)
44 End Try
45 End Sub
46
47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
48 SendMessage("192.168.0.61", TextBox2.Text)
49 End Sub
不是阿.你的东西完全可以实现那.
我给你写了个
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0.5
Timer1.Enabled = True
'TestEvents()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Opacity += 0.1
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity += 0.1
End Sub
Button1点击可以加透明度
也可以timer控制 你timer设置interval 1000 就是1秒
然后就可以啦.
你的失误在于你没有启动 timer
Timer1.Enabled = True 就可以了. 还有不要弄的太快、不然你眼睛还来不及反应就已经好了.
这是个属性没有什么不能设置的.
再给你点参考关于
===================================================
Form.Opacity 属性 [Visual Basic]请参见
Form 类 | Form 成员 | System.Windows.Forms 命名空间 | TransparencyKey | 创建透明 Windows 窗体 | Form 成员（Visual J# 语法） | C++ 托管扩展编程
要求
平台: Windows 2000, Windows XP Home Edition, Windows XP Professional, Windows Server 2003 系列
语言
C#
C++
JScript
Visual Basic
全部显示
获取或设置窗体的不透明度级别。
[Visual Basic]
Public Property Opacity As Double
[C#]
public double Opacity {get; set;}
[C++]
public: __property double get_Opacity();
public: __property void set_Opacity(double);
[JScript]
public function get Opacity() : double;
public function set Opacity(double);
属性值
窗体的不透明度级别。默认值为 1.00。
备注
此属性使您得以指定窗体及其控件的透明度级别。此属性与 TransparencyKey 提供的透明度不同，后者只能使窗体及其控件完全透明，条件是当窗体及其控件与 TransparencyKey 属性中指定的值所表示的颜色相同。当将此属性设置为小于 100% (1.00) 的值时，将使整个窗体（包括边框）更透明。将此属性设置为值 0% (0.00) 时，将使该窗体完全不可见。可以使用此属性提供不同级别的透明度，或者提供如窗体逐渐进入或退出视野这样的效果。例如，可以通过将 Opacity 属性设置为值 0% (0.00)，并逐渐增加该值直到它到达 100% (1.00)，来使某窗体逐渐进入视野。
Windows 2000, Windows Server 2003 系列平台说明: 此属性在无法显示分层窗口的平台上不起作用。
=======================================================
饿的神阿、不给我加分就太不厚道列.
都可以,可以用winsock,也可以自己重写SOCKET套接字.建议你如果工期紧,可以先用WINSOCK.当然最好是自己学用SOCKET套接字.这对未来开发网络通讯是很有帮助的.因为用WINSOCK有个毛病就是杀毒软件总会阻止