导航:首页 > 编程语言 > vbnet编程入门

vbnet编程入门

发布时间:2022-01-26 09:57:04

Ⅰ 用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入门经典

阅读全文

与vbnet编程入门相关的资料

热点内容
什么样的app上买机票最便宜 浏览:987
安卓如何查看异常重启 浏览:717
解压音乐排名 浏览:386
安卓手机浏览器怎么扫二维码 浏览:720
通达信成本均线源码 浏览:619
可以下载的解压音频 浏览:567
海贼王怎么换服务器 浏览:321
计算机上的共享文件夹映射 浏览:942
荣耀安装包在文件夹哪里 浏览:198
机票php源码 浏览:235
linux共享mac 浏览:926
中国没有国外的服务器地址 浏览:761
为什么退款服务器连接错误 浏览:559
android短信存储位置 浏览:977
unix网络编程卷4 浏览:808
找靓机app下单什么时候发货 浏览:413
android一个应用两个进程 浏览:803
linux硬盘复制 浏览:808
php图片服务器搭建 浏览:801
下载压缩文件怎么打开 浏览:194