向高手请教，如何将一个VB程序的窗体最小化到窗口的右下角_百度知道
向高手请教，如何将一个VB程序的窗体最小化到窗口的右下角
我有更好的答案
cbSize = Len(tray)tray.uId = vbNulltray, lpData As NOTIFYICONDATA) As LongConst NIM_ADD = &H0Const NIM_DELETE = &H2Const NIF_ICON = &H2Const NIF_MESSAGE = &H1Const NIF_TIP = &H4Const WM_MOUSEMOVE = &H200Const WM_LBUTTONDBLCLK = &H203Private Type NOTIFYICONDATAcbSize As LonghWnd As LonguId As LonguFlags As LonguCallBackMessage As LonghIcon As LongszTip As String * 64End TypeDim tray As NOTIFYICONDATAPrivate Sub Form_Load()trayPrivate Declare Function Shell_NotifyIcon Lib &shell32.dll&quot.Icontray.szTip = &我在这里& + vbNullCharShell_NotifyIcon NIM_ADD, trayMe.HideEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As S (ByVal dwMessage As Long.hWndtray.uFlags = NIF_TIP Or NIF_MESSAGE Or NIF_ICONtray.uCallBackMessage = WM_MOUSEMOVEtray.hIcon = Me.hWnd = Me
采纳率：75%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。博主最新文章
博主热门文章
您举报文章：
举报原因：
原文地址：
原因补充：
(最多只允许输入30个字)如何让我的VB.Net程序最小化到系统任务栏里啊？
[问题点数：20分，结帖人wangbo1118]
如何让我的VB.Net程序最小化到系统任务栏里啊？
[问题点数：20分，结帖人wangbo1118]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2004年5月 .NET技术大版内专家分月排行榜第三
2002年2月 .NET技术大版内专家分月排行榜第三
匿名用户不能发表回复！|vb中，如何让程序运行后最小化时在右下角_百度知道
vb中，如何让程序运行后最小化时在右下角
vb编程打包运行后，如何让程序后最小化时在右下角，程序应该如何写？
我有更好的答案
使用systray可以很简单实现。在窗体添加一个systray部件，在窗体中添加下述代码即可。Private Sub Form_Resize()If WindowState = 1 Then
sty.InTray = True
sty，然后在窗体上添加一个systray控件，然后再加上简单代码即可。例如，将所添加的systray控件命名为“sty”楼上说得太复杂了
采纳率：34%
shell32;(版本 &quot.Hide End Sub 5、在Form1的QueryUnload事件中写入如下代码： Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call Shell_NotifyIcon(NIM_DELETE; PopupMenu MenuTray '如果是在系统Tray图标上点右键.&quot： Option Explicit Public Const MAX_TOOLTIP As Integer = 64 Public Const NIF_ICON = &H2 Public Const NIF_MESSAGE = &H1 Public Const NIF_TIP = &H4 Public Const NIM_ADD = &H0 Public Const NIM_DELETE = &H2 Public Const WM_MOUSEMOVE = &H200 Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202 Public Const WM_LBUTTONDBLCLK = &H203 Public Const WM_RBUTTONDOWN = &H204 Public Const WM_RBUTTONUP = &H205 Public Const WM_RBUTTONDBLCLK = &H206 Public Const SW_RESTORE = 9 Public Const SW_HIDE = 0 Public nfIconData As NOTIFYICONDATA Public Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * MAX_TOOLTIP End Type Public Declare Function ShowWindow Lib &user32& (ByVal hWnd As L' Case WM_RBUTTONUP '' Case WM_MOUSEMOVE &#39、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False 2;MsgBox &请用鼠标右键点击图标; & App.Minor & &; Case WM_LBUTTONDBLCLK &#39、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.SetFocus &#39。1; & App.Revision & &quot、在Form1的Load事件中写下如下代码： Private Sub Form_Load() '以下把程序放入System Tray====================================System Tray Begin With nfIconData ;=============================================================System Tray End Me, Y As Single) Dim lMsg As Single lMsg = X / Screen.TwipsPerPixelX Select Case lMsg Case WM_LBUTTONUP &#39.hWnd = Me.Title + &Me.Show 'Me, ByVal nCmdShow As Long) As Long Public Declare Function Shell_NotifyIcon Lib &quot, &实时播音专家& '单击左键.uID = Me.Icon .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP , SW_RESTORE '下面两句的目的是把窗口显示在窗口最顶层 &#39!&quot.uCallbackMessage = WM_MOUSEMOVE .hIcon = Me，显示窗体 ShowWindow Me.hWnd.Icon.Handle '定义鼠标移动到托盘上时显示的Tip ;' Case WM_LBUTTONDOWN '&#39, nfIconData) End Sub 6、在Form1的MouseMove事件中写下如下代码： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As S' Case Else End Select End Sub 7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标，Form1就自动弹出来了。参考资料：、在Module1中写下如下代码; & App.Major & &.cbSize = Len(nfIconData) End With Call Shell_NotifyIcon(NIM_ADD.szTip = A)& & vbNullChar , nfIconData) ', vbIShell_NotifyIconA& (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long 4.dll& Alias &quot.bas 3要用api的;' Case WM_RBUTTONDOWN '&#39.&quot.hWnd ; Case WM_RBUTTONDBLCLK &#39，则弹出菜单MenuTray '&#39
为您推荐：
其他类似问题
最小化的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。&>&VB.NET实现窗体图标最小化到状态栏
VB.NET实现窗体图标最小化到状态栏
上传大小：2KB
本文所使用的编程环境是Microsoft Visual Studio 2005，首先打开Visual Studio。在文件(File)菜单上，单击新建项目(New Project)。在新建项目(New Project)对话框的模板(Templates)窗格中，单击Windows应用程序(WindowsApplication)。单击确定(ok)。
综合评分：2
下载个数：
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有2条
图都没有也上传，真是的。
下了，可以打开
综合评分：
积分/C币：3
综合评分：
积分/C币：3
综合评分：
积分/C币：3
综合评分：
积分/C币：3
综合评分：
积分/C币：5
jinxiongyi_1
综合评分：
积分/C币：3
综合评分：
积分/C币：3
综合评分：
积分/C币：3
综合评分：
积分/C币：3
综合评分：
积分/C币：3
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验，不建议使用迅雷下载
VB.NET实现窗体图标最小化到状态栏
会员到期时间：
剩余下载个数：
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可返还被扣除的积分
被举报人：
举报的资源分：
请选择类型
资源无法下载 （ 404页面、下载失败、资源本身问题）
资源无法使用 （文件损坏、内容缺失、题文不符）
侵犯版权资源 （侵犯公司或个人版权）
虚假资源 （恶意欺诈、刷分资源）
含色情、危害国家安全内容
含广告、木马病毒资源
*详细原因：
VB.NET实现窗体图标最小化到状态栏