锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net教程菜鸟 vb net

IT技术绘图

vb基础问题，入门的菜鸟求问 。sub form_load()
me.move 1000,3000,6000,3000
end sub
sub command1_click()
text1.move 0,0
text1="欢迎使用"
end sub
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("备注")
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

推荐阅读


上一篇：鸿蒙调整桌面图片大小，鸿蒙系统如何调整桌面图标大小

下一篇：牙签直播卖货，牙签货是怎么做出来的