扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
例如你用msgbox,你在输入这个函数的参数的时候会有个提示框弹出来,里面有每个参数的类型已经这个函数的返回值类型,
创新互联建站-专业网站定制、快速模板网站建设、高性价比大理州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式大理州网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖大理州地区。费用合理售后完善,10年实体公司更值得信赖。
你可以记下来返回值的类型msgbox的是Microsoft.VisualBasic.MsgBoxResult
然后你按下F2
输入MsgBoxResult去搜索(不知道为什么搜索Microsoft.VisualBasic.MsgBoxResult没有结果)
可以看到MsgBoxResult的方法,函数和枚举项,枚举项就是你要的东西.自己看
其实你还可以直接就F2然后搜索MSGBOX,会得到这个函数的详细讯息,返回值有哪些结果也会得到.
多看看MSDN如果没装
按F2多看看对象浏览器
你可以得到很多答案
两种方法:
图片框上盖个Label 向其输入内容。
载入图片,通过内存直接 DrawImage绘制个新图,然后在图上盖文字。最后赋值给图片框。
VB6的print 实质是向图片框打印文字,不管有无图都能在上面Print. 考虑速度和实现难度问题,如果纯粹显示,最好直接盖个Label最简单。第二种方法 需要考虑文字大小、颜色、坐标定位等等。如果一行文字显示不下,不会自动换行,得自己切。
在vb2008下,form具有TransparencyKey属性,将窗体的背景色和TransparencyKey颜色设置一致时,窗体会完全透明,显示文字时,给文字不同的颜色,文字会直接显示当前屏幕之上设置form1属性,TransparencyKey=黑色,BackColor=黑色 绘制窗体的代码,给文字以不同颜色 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawString("你好", New Font("黑体", 60, FontStyle.Bold), Brushes.Blue, 0, 0)
End Sub 可以设置窗体置顶属性,永远前端显示也可以显示在桌面,用setparent,父窗体为桌面
1.用Win32 API PlaySound
PlaySound位于"winmm.dll"中,可以根据输入参数的不同,播放WAV类型的音乐。在VB.NET中调用跟VB6中差不多:
先声明:
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = H20000
Const SND_ALIAS As Integer = H10000
Const SND_SYNC As Integer = H0
具体还有很多常量,不一一列举,下面是播放一个wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
注意上面的播放是非同步的,就是说它并不会播放完毕才结束。如果把上面的代码写在一个Button.Click的事件处理程序中,第二次点击的时候它会打断第一次的播放,重新开始。
当然我们也可以调用系统的声音:
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式调用系统启动时候的声音。
2. 调用媒体播放器控件
VB.NET中并没有提供媒体播放器的.NET组件,没办法我们还是调用以前Com组件Windows Media Player。当然除了声音外,还可以播放视频文件。
首先把媒体播放器控件加到工具栏中,调用还是简单的写一下吧:)
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\爱不爱我.mp3"
.Play()
End With
End Sub
中间改下,
dim x,y,z as integer
x=textbox1.text
y=textbox2.text
z=math.min(x,y)
for i as integer=1 to z
result=ii
next
使用一个单重的循环扫描这个字符串中的所有字符,对每一个字符的出现次数进行统计,最后输出每个字符的出现次数。
Private Sub Command1_Click()
s = InputBox("请输入一个英文字符串:")
Dim a(128) As Integer
For i = 1 To Len(s)
t = Asc(Mid(s, i, 1))
a(t) = a(t) + 1
Next i
For i = 1 To 127
If a(i) 0 Then Print Chr(i); ":"; a(i)
Next i
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流