vb中怎样让一个控件，如标签脱离窗体而出现在电脑桌面上？
vb中怎样让一个控件，如标签脱离窗体而出现在电脑桌面上？ 5
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long窗体或控件句柄=(你要嵌入桌面那个控件的句柄)
被嵌入窗体句柄=(桌面的句柄)
Call SetParent((窗体或控件句柄), (被嵌入窗体句柄))
其他回答 (6)
Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY = &H1
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Sub Form_Load()&&& Dim rtn As Long&&& rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)&&& rtn = rtn Or WS_EX_LAYERED&&& SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn&&& SetLayeredWindowAttributes Me.hwnd, Me.BackColor, 0, LWA_COLORKEYEnd Sub'将窗体BorderStyle设为0，label前景色和窗体背景色不要相同
f出来的是这种情况，好像还是有窗体，外面那个白色部分就是窗体，可不可以把那个白色部分也弄成透明的
白色部分应该是标签背景，设置其背景为透明即可
SetLayeredWindowAttributes Me.hwnd, label1.BackColor, 0, LWA_COLORKEY
'仍然有问题可以改为
Private Sub Form_Load()&&& Dim rtn As Long&&& Label1.BackColor = 1&&& Me.BackColor = 1&&& rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE)&&& rtn = rtn Or WS_EX_LAYERED&&& SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn
&&& SetLayeredWindowAttributes Me.hwnd, 1, 0, LWA_COLORKEYEnd Sub
一个非常简单的方法可以实现，把窗体的borderstyle属性设置为0，即无标题窗体，窗体没标题了那么上面的控件自然就可以独立出现了
基本上不能,上面这些方法都是障眼法
我想问你,你能把电脑中的某个窗口,比如我的电脑,移动显示器外面吗?
这是一样的道理
这是什么，居然我不懂？？？
啊？这个你不知道啊？你应该知道的哟，你要学哦，这个是编程语言
看下是不是这样的就是让窗体没有边框，也是透明的窗体，窗体里的控件也是透明的，对吧？
你把那个标签做成透明的,不就没了,要是还有就把窗口也设成透明的
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号> VB中wmp控件使用问题我在工程中有一个进度条，这个进度条进行多方控制我想在进度条中的比如点击到5
VB中wmp控件使用问题我在工程中有一个进度条，这个进度条进行多方控制我想在进度条中的比如点击到5
liuwenjin & &
发布时间： & &
浏览：35 & &
回复：2 & &
悬赏：0.0希赛币
VB中 wmp控件使用问题我在工程中有一个进度条，这个进度条进行多方控制我想在进度条中的比如点击到50%的时候，wmp控件的进度也能响应到50%。wmp有这个功能吗？就是播放进度直接从50%开始
在播放过程中player.Controls.currentPosition = player.currentMedia.duration * 0.5
liuwenlixing & &
& & （0）（0）
参考：windows media player 控件在我们编程时经常要用到，但是有很多属性及方法却不知道该怎么使用。现以 wmp 9.0控件为例说说其在 Delphi 7.0 中常用的属性与方法（JavaScript中用法几乎完全相同）。假设此控件名为wmp属性/方法名： 说明：& [基本属性]
指定媒体位置，本机或网络地址& uiMode:S
播放器界面模式，可为Full, Mini, None, Invisible& playState:
播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪& enableContextMenu:B
启用/禁用右键菜单& fullScreen:
是否全屏显示& [controls] wmp.controls //
播放器基本控制& controls.
播放& controls.
暂停& controls.
停止& controls.currentPosition:
当前进度& controls.currentPositionString:
当前进度，字符串格式。如“00:23”& controls.fastF
快进& controls.fastR
快退& controls.
下一曲& controls.
上一曲& [settings] wmp.settings //
播放器基本设置& settings.volume:
音量，0-100& settings.autoStart:B
是否自动播放& settings.mute:B
是否静音& settings.playCount:
播放次数& [currentMedia] wmp.currentMedia //
当前媒体属性& currentMedia.duration:
媒体总长度& currentMedia.durationString:
媒体总长度，字符串格式。如“03:24”& currentMedia.getItemInfo(const string);
获取当前媒体信息
&Title&=媒体标题，&Author&=艺术家，&Copyright&=版权信息，&Description&=媒体内容描述，&
&Duration&=持续时间（秒），&FileSize&=文件大小，&FileType&=文件类型，&sourceURL&=原始地址& currentMedia.setItemInfo(const string);
通过属性名设置媒体信息& currentMedia.name:
同 currentMedia.getItemInfo(&Title&)& [currentPlaylist] wmp.currentPlaylist //
当前播放列表属性& currentPlaylist.count:
当前播放列表所包含媒体数& currentPlaylist.Item[integer];
获取或设置指定项目媒体信息，其子属性同wmp.currentMedia&
&liuwenlong0314 & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&湘教QS2-164&&增值电信业务经营许可证湘B2-VB中菜单控件的有关问题？_百度知道
VB中菜单控件的有关问题？
可以浏览全盘来打开文本文档并将之文本显示在TEXTBOX中，求解答~
新手。 我以添加了菜单控件我想在我的Form里用MenuStrip(菜单控件）做一个像Word等程序一样，双击后不知该如何实现，麻烦写出代码，命名了一项“OPEN”
意。实现相同的功能.txt
textBox的multiline属性要改为ture用MenuStrip(菜单控件）不如用这个灵活，如，总之有点麻烦：初始化路径以及文件名，用那个控件还需要设置很多属性:comboBox的list属性要改为*？对不对，我们何必找麻烦那
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁问题补充&&
本页链接：
除现在点击的这个combo除外 则执行代码
If Combo(Index).ListIndex = -1
'&gt.ListIndex = Combo(i);如果当前点击的combo选择项和 其他一样 则其他的combo修改选中项
End IfNextEnd SubPrivate Sub Form_Load()For i = 1 To 10
For j = 0 To 3
Combo(j); i Then &#39.ListIndex Then Combo(i)Private Sub Combo_click(Index As Integer)For i = 0 To 3
If Index &lt
tianqing20wen &
Text Then Combo1(前一个)Private Sub Combo3(后一个)_Change()
If Combo3(后一个);&quot.Text = &quot.Text = Combo1(前一个)
男人海洋_2009&
猜你感兴趣
服务声明： 信息来源于互联网，不保证内容的可靠性、真实性及准确性，仅供参考，版权归原作者所有！Copyright &
Powered by}