正文
vb.net教程菜鸟 vb net
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb基础问题，入门的菜鸟求问。
sub form_load()
me.move 1000,3000,6000,3000
end sub
sub command1_click()
text1.move 0,0
text1="欢迎使用"
end sub
相关问答
Q1: vb.net 连接 sql server 数据库，菜鸟问题，请高手解答
说明：
da.Fill(ds)是使用da的Fill方法，把通过检索得到的数据填充到ds里，ds是一个或一组 DataTable 对象组成；
da.Fill()方法，有好几种重载，我这里介绍我常使用的两种形式；
一，就是你使用的形式
da.Fill(ds)
这里，是把通过Select语句检索的得到的数据行，添加到默认的也是唯一的DataTable里
你第一次使用da.Fill(ds)，得到了你想要得到的结果。
当你再次使用该语句da.Fill(ds)的时候，会把检索到的行添加到原来的数据行的后面。（你可以把你原来代码两次添加的结果分别用2个网格来显示，理解一下我说的）
注意：仅仅把检索到的新行的列名，与原来列名相同的数据添加，不存在的列名不添加。如果所有列名都不存在，仅添加空行。
二，为了获得不同的检索数据，采用以下两种方式解决
方法1，如果前面检索到的数据已经不需要了，那么可以；
ds.Clear() '先清空第一次检索得到的数据
da.SelectCommand.CommandText = "select * from 备注表 where 变量 = 'gsmc'"
da.Fill(ds)
方法2，如果前面检索到的数据还需要，那么可以在填充时指定表的名称
第一次检索；
da.SelectCommand.CommandText = "select * from 密码表"
da.Fill(ds,"检索1") ‘这里用"检索1"表示并保存到第一次检索的独立表里
ComboBox1.Text = ds.Tables("检索1").Rows(0).Item("用户名")
这行也可以用；
ComboBox1.Text = ds.Tables(0).Rows(0).Item("用户名")
第二次检索；
da.SelectCommand.CommandText = "select * from 备注表 where 变量 = 'gsmc'"
da.Fill(ds,"检索2") ‘这里用"检索2"表示并保存到第二次检索的独立表里
TextBox1.Text = ds.Tables("检索2").Rows(0).Item("备注")
这行也可以用；
TextBox1.Text = ds.Tables(1).Rows(0).Item("备注")
Q2: VB 我是菜鸟，求高手说下怎么弄··
先下一个VB6.0下来安装在自己电脑上。然后打开它，新建一个标准exe程序。
你可以去下载一个简单的教程来看，当然可以看视频，然后我就教你写一个mp3播放器。
(1).点击菜单“工程”---“引用”，引用Windows Media Player。和CommonDialog。
(2).在窗体中添加控件CommonDialog、Windows Media Player。添加代码，按钮按提示添加：
Public volum As Integer '声音全局变量定义，用于记录播放过程中的声音值
Public bool As Boolean '全局变量定义
Sub openn() '过程
On Error Resume Next '出错处理
CommonDialog1.ShowOpen '显示打开通用对话框
If CommonDialog1.FileName "" Then
bool = False
WindowsMediaPlayer1.Visible = True
WindowsMediaPlayer1.URL = CommonDialog1.FileName '播放路径
End If
volum = WindowsMediaPlayer1.settings.volume '声音值
End Sub
Private Sub Form_DblClick() '窗体双击事件
Call openn '调用自定义过程
End Sub
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) '接收拖曳信息
On Error Resume Next
bool = False
WindowsMediaPlayer1.URL = Data.Files.Item(1)
End Sub
Private Sub Command1_Click() '打开按钮Command1
Call openn '调用open
End Sub
Private Sub Command2_Click() '暂停按钮Command2
bool = True
WindowsMediaPlayer1.Controls.Pause
End Sub
Private Sub Command3_Click() '停止播放按钮Command3
bool = True
WindowsMediaPlayer1.Controls.Stop
End Sub
Private Sub Command4_Click() '增大音量按钮Command4
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command5_Click() '减小音量按钮Command5
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume - 5
volum = WindowsMediaPlayer1.settings.volume
End Sub
Private Sub Command6_Click() '静音按钮Command6
If WindowsMediaPlayer1.settings.mute Then
WindowsMediaPlayer1.settings.mute = False
Else
WindowsMediaPlayer1.settings.mute = True
End If
End Sub
Private Sub Command7_Click() '全屏按钮Command7
On Error Resume Next
WindowsMediaPlayer1.FullScreen = True
End Sub
Private Sub Command8_Click() '退出程序按钮Command8
Unload Me
End Sub
Private Sub WindowsMediaPlayer1_StatusChange() '循环播放实现
On Error Resume Next
If bool = False Then
WindowsMediaPlayer1.Controls.Play
End If
End Sub
具体的属性方法：
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean 全屏显示
stretchToFit:boolean 非全屏状态时是否伸展到最佳大小
uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer 当前控件状态，下面是三种基本状态：
3：正在播放
2：暂停
1：已停止
状态变化时会触发OnStatusChange事件
[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"
[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.duration Double 总长度
currentMedia.durationString 时间格式的字符串 "4:34"
[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。
=================
版本2：
属性/方法名： 说明：
[基本属性]
url：string指定媒体位置，本机或网络地址
uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible
playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪
enableContextMenu:Boolean; 启用/禁用右键菜单
fullScreen:boolean; 是否全屏显示
[controls] wmp.controls //播放器基本控制
controls.play; 播放
controls.pause; 暂停
controls.stop; 停止
controls.currentPosition:double; 当前进度
controls.currentPositionString:string; 当前进度，字符串格式。如“00:23”
controls.fastForward; 快进
controls.fastReverse; 快退
controls.next; 下一曲
controls.previous; 上一曲
[settings] wmp.settings //播放器基本设置
settings.volume:integer; 音量，0-100
settings.autoStart:Boolean; 是否自动播放
settings.mute:Boolean; 是否静音
settings.playCount:integer; 播放次数
[currentMedia] wmp.currentMedia //当前媒体属性
currentMedia.duration:double; 媒体总长度
currentMedia.durationString:string; 媒体总长度，字符串格式。如“03:24”
currentMedia.getItemInfo(const string); 获取当前媒体信息"Title"=媒体标题，"Author"=艺术家，"Copyright"=版权信息，"Description"=媒体内容描述，"Duration"=持续时间（秒），"FileSize"=文件大小，"FileType"=文件类型，"sourceURL"=原始地址
currentMedia.setItemInfo(const string); 通过属性名设置媒体信息
currentMedia.name:string; 同 currentMedia.getItemInfo("Title")
[currentPlaylist] wmp.currentPlaylist //当前播放列表属性
currentPlaylist.count:integer; 当前播放列表所包含媒体数
currentPlaylist.Item[integer]; 获取或设置指定项目媒体信息，其子属性同wmp.currentMedia
MediaPlayer1.Play播放
MediaPlayer1.Stop停止
MediaPlayer1.Pause 暂停
MediaPlayer1.PlayCount文件播放次数
MediaPlayer1.AutoRewind 是否循环播放
MediaPlayer1.Balance 声道
MediaPlayer1.Volume 音量
MediaPlayer1.Mute静音
MediaPlayer1.EnableContextMenu是否允许在控件上点击鼠标右键时弹出快捷菜单
MediaPlayer1.AnimationAtStart是否在播放前先播放动画
MediaPlayer1.ShowControls是否显示控件工具栏
MediaPlayer1.ShowAudioControls是否显示声音控制按钮
MediaPlayer1.ShowDisplay 是否显示数据文件的相关信息
MediaPlayer1.ShowGotoBar 是否显示Goto栏
MediaPlayer1.ShowPositionControls是否显示位置调节按钮
MediaPlayer1.ShowStatusBar是否显示状态栏
MediaPlayer1.ShowTracker 是否显示进度条
MediaPlayer1.FastForward 快进
MediaPlayer1.FastReverse 快退
MediaPlayer1.Rate快进／快退速率
MediaPlayer1.AllowChangeDisplaySize 是否允许自由设置播放图象大小
MediaPlayer1.DisplaySize 设置播放图象大小
1-MpDefaultSize 原始大小
2-MpHalfSize 原始大小的一半
3-MpDoubleSize 原始大小的两倍
4-MpFullScreen 全屏
5-MpOneSixteenthScreen 屏幕大小的1/16
6-MpOneFourthScreen 屏幕大小的1/4
7-MpOneHalfScreen屏幕大小的1/2
MediaPlayer1.ClickToPlay 是否允许单击播放窗口启动Media Player
Q3: 一个VB.net的菜鸟问题
【1】
New Char()意思是定义一个新的Char型数组并将此数组作为参数传递
基本等同于VB6的Dim tmp() As XXXX
但是此语法要比VB6中的更加灵活
【2】
VB.net中新增了一个Char类型，用来存储Unicode字符，而用引号""括起来的字符默认为ASCII字符，所以要在引号后加上一个小写的c来强制VB将字符转换为Unicode编码。例如：
Dim UniCode As Char,ASCIICode As String
UniCode = "W"c
ASCIICode = "W"
【3】花括号为初始一个新数组时的语法，括号中可以用逗号分隔开数组的初始值。对比：
VB6:
Dim k() As String
k = Array("a","b","c")
VB.net:
Dim k As String(){"a","b","c"}
而数组作为参数传递时，在过程的一开始就定义一个传递用的数组是很麻烦的，
所以用New Char(){ "a"c , "b"c , "c"c }会很方便
【4】
Split方法有很多重载版本，你所说的这一种能够使用
Q4: 菜鸟学VB.NET 。。未将对象引用设置到对象的实例。
以后看到这种提示就说明从数据库中没有取到数据（一般情况下）vb.net教程菜鸟，vb.net教程菜鸟你将sql语句单独在数据库中执行一下看是否有取到数据。
关于vb.net教程菜鸟和vb net的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
