Ⅰ 用vb.net编程
不是阿.你的东西完全可以实现那.
我给你写了个
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 系列平台说明: 此属性在无法显示分层窗口的平台上不起作用。
=======================================================
饿的神阿、不给我加分就太不厚道列.
希望对你能有所帮助。
Ⅱ VB.net是学什么的怎样才能把它学好
vb.net是编程语言,学好他需要你的兴趣和探索精神!
你在网上下的2005不能安装的原因估计是你下的文件有错误,建议你重新下载一个,另外,vb.2005版本有EXPRESS和企业版的区别,你不要下express,那个功能太少,最后,别忘了下msdn2005,这个是和vb.net2005的帮助文档,非常管用。
要想学好VB.NET,一是建议你先买本书,我也是这么开始学的,不要买高级教程,先买个基本教程。二是建议你用好前面说的msdn,不明白就用这个查找。
三是建议你不明白就多去论坛或者问问别人,几个人一起学习编程,效率会非常高。
希望我的答案能令你满意
Ⅲ 请问没有任何编程基础,怎么学习VB。NET
学visual basic .net并不需要visual basic的基础的,完全不一样的东西,学好visual basic .net至少需要有oop编程基础的,所以建议楼主先学习oop编程思想吧
Ⅳ 请教,关于vb.net编程
size不是改变它的大小
应该是width 和height 这两个属性
Ⅳ vb.net编程
http://chs.gotdotnet.com/QuickStart/aspplus/default.aspx?url=/quickstart/aspplus/doc/webserverctrls.aspx
Ⅵ .NET游戏编程入门经典——VB.NET篇电子书
介绍一个非常不错的VB网站吧!应有尽有!
VB新势力-vb下载 vb6下载 vb教程 vb源码 vb试题 vb源代码 vb控件 vb源程序 vb书籍 vb工具 vb6.0下载vb.net教程vb.net源码
http://www.vbaspnew.com/
测试过,可以下载
参考资料:(是由知道专家提供的,呵呵!)
http://..com/question/5549560.html
Ⅶ vb.net的编程
Option Strict Off
Option Explicit On
Friend Class Form1
Inherits System.Windows.Forms.Form
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
Dim j As Integer
Dim A(9) As Short
Dim D(9) As Short
Dim i As Short
Dim B As Short
Dim C As Short
Dim F As Short
Dim G As Boolean
Dim H() As Short
Dim K As Short
Dim S As String
C = 32767
For i = 1 To 10
A(i - 1) = CShort(InputBox("输入第 " & i & "个数"))
If B < A(i - 1) Then B = A(i - 1)
If C > A(i - 1) Then C = A(i - 1)
D(i - 1) = Int(Rnd() * 100 + 0.5)
If F < D(i - 1) Then F = D(i - 1)
Next i
For i = 2 To 100
For j = 2 To Int(System.Math.Sqrt(i) + 0.5)
'UPGRADE_WARNING: Couldn't resolve default property of object j. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
'UPGRADE_WARNING: Mod has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
If i Mod j <> 0 Then
G = True
Else
G = False
Exit For
End If
Next j
If G = True Then
ReDim Preserve H(K)
H(K) = i
K = K + 1
End If
Next i
S = "2;"
For i = 0 To K - 1
S = S & H(i) & ";"
Next i
MsgBox("最大数为:" & B & ";最小数为:" & C)
MsgBox("最大的随机数为:" & F)
MsgBox("1--100之间共有" & K + 1 & "个素数:" & S)
End Sub
End Class
Ⅷ VB.NET编程语法
你这是vb.net的代码,vb中不允许那么写:
Dim
strdx()
As
String
=
{"0",
"0",
"0"}
'定义个数组,从后面的值能看的出最大下标是2,也就是strdx(0),strdx(1)和strdx(2),3个的默认值都为0
Dim
calcount1
As
String
=
"0"
'定义个字符串变量
Dim
calcount2
As
String
=
"0"
Dim
strvalue
As
Boolean
=
False
'定义strvalue为bool值,改类型变量只有true和false
2种值
If
strdx(0)
=
"0"
Then
TextBox1.Text
=
strdx(0)
&
"."
&
这是字符串连接符号,和"+"的区别是,他把左右2边的内容直接连接的,而"+"可能会编程运算符,例如
2
&
3
=
"23"
而
2
+
3
=
5
ElseIf
strvalue
=
False
Then
strdx(0)
=
strdx(0)
&
"0"
TextBox1.Text
=
strdx(0)
&
"."
strvalue
=
True
Else
strdx(0)
=
strdx(0)
&
"0"
TextBox1.Text
=
strdx(0)
Select
Case
calcount1
'
这里开始是分支语句
Case
"+"
TextBox1.Text
=
Str(Val(strdx(1))
+
Val(strdx(0)))
Ⅸ 求vb.net编程练习解答(超简单)
1.n=textbox1.lenght
for i=0 to n
j=mid(textbox1.text,i)'这个函数你具体查一下它的用法!!
sum=sum+j
next
2.
3.都不难!!你自己想想吧!!
Ⅹ vb.net入门学习用什么书比较好点
visual basic2008入门经典