将程序窗体放到任务栏

2011-04-15 07:01:02 201 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别再为数据发愁：5分钟理解事件相机原理，并自己动手生成事件图像本文深入浅出地解析了事件相机的工作原理，并提供了从静态图像生成事件数据的实用方法。通过Python代码示例，读者可以快速掌握如何模拟事件相机的输出，应用于机器人导航、自动驾驶等领域，解决数据获取难题。阅读详情

看到谷歌桌面搜索可以将自己的窗体放到语言栏相同的位置，以前还看到有将自己程序装入到快速启动栏中的，我自己试了试



hWnd = FindWindow("Shell_TrayWnd", vbNullString)

hWnd = FindWindowEx(hWnd, 0, "ReBarWindow32", vbNullString)

hWnd = FindWindowEx(hWnd, 0, "ToolbarWindow32", vbNullString)



GetWindowRect hWnd, temprect



If hWnd <> 0 Then



SetParent Me.hWnd, hWnd

GetWndPic hWnd, Picture1

End If

Me.Move -80, 0, Me.Width, 400

能够将程序放到快速启动栏中，但是却遮住了原来的快速启动栏图标，怎么才能让其他图标往后移动啊，再有要添加到语言栏相同的位置怎么办？添不上去

...全文

数据去重复_京东商品评论情感分析｜文本数据预处理本文爬取了十款热销手机的文本评论数据后，首先对文本评论数据做文本预处理，文本评论数据中存在大量的无价值信息，引入无用的文本数据，对其作情感分析，显然没有价值，得出的文本挖掘结果也不尽人意。所以对于文本评论数据先进行文本预处理是必不可少的一步，把大量的、冗余的、无价值的信息去除，可以极大提高文本数据的质量，精确文本分析结果。1 文本去重1.1文本去重的原因文本数据预处理时，首先应去除文本评论数据中反... 阅读详情

泊客天涯

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

泊客天涯 2011-08-04

打赏
举报

继续征求意见

贝隆 2011-04-15

打赏
举报

系统托盘？

无·法 2011-04-15

打赏
举报

是挺麻烦，貌似得通过系统提供的专门接口或者所允许的方式来操作，setparent这样的属于非常规操作。

用户　昵称 2011-04-15

打赏
举报

应该不是system tary那一块，是输入法那一块。

of123 2011-04-15

打赏
举报

你是说 System Tray 吗？

' FormMain.frm - Add an icon to the system tray.
' Copyright (c) 2001. All Rights Reserved.
' By Paul Kimmel. pkimmel@softconcepts.com

Option Explicit

' Type passed to Shell_NotifyIcon
Private Type NotifyIconData
Size As Long
Handle As Long
ID As Long
Flags As Long
CallBackMessage As Long
Icon As Long
Tip As String * 64
End Type

' Constants for managing System Tray tasks, foudn in shellapi.h
Private Const AddIcon = &H0
Private Const ModifyIcon = &H1
Private Const DeleteIcon = &H2

Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205

Private Const MessageFlag = &H1
Private Const IconFlag = &H2
Private Const TipFlag = &H4

Private Declare Function Shell_NotifyIcon _
Lib "shell32" Alias "Shell_NotifyIconA" ( _
ByVal Message As Long, Data As NotifyIconData) As Boolean

Private Data As NotifyIconData

Private Sub Form_Load()
AddIconToTray
Visible = False
End Sub

Private Sub Form_Terminate()
DeleteIconFromTray
End Sub

Private Sub AddIconToTray()

Data.Size = Len(Data)
Data.Handle = hWnd
Data.ID = vbNull
Data.Flags = IconFlag Or TipFlag Or MessageFlag
Data.CallBackMessage = WM_MOUSEMOVE
Data.Icon = Icon
Data.Tip = "System Tray Demo - codeguru.com" & vbNullChar
Call Shell_NotifyIcon(AddIcon, Data)

End Sub

Private Sub DeleteIconFromTray()
Call Shell_NotifyIcon(DeleteIcon, Data)
End Sub

Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)

Dim Message As Long
Message = X / Screen.TwipsPerPixelX

Select Case Message
Case WM_LBUTTONDBLCLK
Visible = Not Visible
WindowState = Abs(Not Visible)
End Select
End Sub

将程序窗体放到任务栏

相关推荐