Ⅰ 会用vb.net制作托盘的高手进
所谓静态托盘程序是指程序运行后,在系统托盘区的图标处于静止状态的托盘程序。动态托盘程序正好与之相反,它是指在系统托盘区图标呈现动画效果的一类托盘程序。下面就来探讨一下VB.NET是如何实现静态托盘程序。
Ⅱ 3dmax怎么做方形托盘
过程以文字版部分叙述,详情如下:
1、打开3dsmax软件,新建一个空白文档。
2、在“前”视图中绘制一条托盘前视图的曲线。
3、将曲线图形制作出双线效果,将来制作出托盘厚度。
4、打开“修改器”菜单,选择“面片/样条线编辑”项中的“车削”命令。
5、看到,视图中出现了这样一个几何体。
6、打开“修改”选项卡,选择“轴”修改器。
7、选择工具栏中的“选择并移动”按钮。
8、使用鼠标拖动图形坐标的轴心,沿着x轴负方向移动一段距离,即可出现托盘形状。
Ⅲ 我现在有一个WIN32控制台程序,现在需要为它做一个托盘图标
1、知道并理解消息循环,会使用消息循环
2、理解“回调”的概念,知道“消息处理函数”,会编写消息处理函数
3、知道如何在生成的exe中添加资源,会载入资源,特别是图标资源
4、会制作.ico文件,以便作为资源导入
5、去看Shell_NotifyIcon、TrackPopupMenu函数。前者可以在托盘区添加图标、并设定图标的消息响应函数,后者可以在鼠标点击的消息到达的时候显示一个菜单
Ⅳ VB托盘制作
1、新建立一个VB6工程,将Form1的ShowInTaskBar属性设置为False
2、菜单:工程--添加模块 按“打开”这样就添加了一个新模块,名为Mole1,保存为Mole1.bas
3、在Mole1中写下如下代码:
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 Long, ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
4、在Form1的Load事件中写下如下代码:
Private Sub Form_Load()
'以下把程序放入System Tray====================================System Tray Begin
With nfIconData
.hWnd = Me.hWnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
'定义鼠标移动到托盘上时显示的Tip
.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
.cbSize = Len(nfIconData)
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
'=============================================================System Tray End
Me.Hide
End Sub
5、在Form1的QueryUnload事件中写入如下代码:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub
6、在Form1的MouseMove事件中写下如下代码:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
'单击左键,显示窗体
ShowWindow Me.hWnd, SW_RESTORE
'下面两句的目的是把窗口显示在窗口最顶层
'Me.Show
'Me.SetFocus
'' Case WM_RBUTTONUP
'' PopupMenu MenuTray '如果是在系统Tray图标上点右键,则弹出菜单MenuTray
'' Case WM_MOUSEMOVE
'' Case WM_LBUTTONDOWN
'' Case WM_LBUTTONDBLCLK
'' Case WM_RBUTTONDOWN
'' Case WM_RBUTTONDBLCLK
'' Case Else
End Select
End Sub
7、现在将程序保存起来运行看看系统托盘处是否增加了一个本工程的图标。单击此图标,Form1就自动弹出来了。
Ⅳ 托盘的制作流程
目前国内企业主要采用注塑成型、中空吹塑成型两种方式生产塑料托盘。
注塑成型托盘原料一般采用低压高密度聚乙烯(HDPE),经注塑一次成型。其员材料成本低于吹塑托盘,目前在国内的应用普及较广。注塑成型适用于成型形状复杂、刚度要求高的托盘,适用于生产批量大的托盘成型加工。但模具成本高,投资大。飞边极少、制品后处理工作量很少。成型周期短,一般一个周期约3分钟。制品尺寸精确,表面质量好。
注塑成型托盘制造工艺过程主要考虑的参数为:1、合模力;2、注射量;3、注射压力;4、塑化能力,塑化时间;5、循环周期;6、模具:为降低成型合模力,提高制品质量,应采用热流道模具。
Ⅵ 制作木托盘的工艺流程
一、木托盘制作之选材
木托盘的原材料一般都是松木、杉木或者一些复合木材构成,其松木最佳。木材原料也根据地方的不同,材质也不一样。例如南方木材,因为南方的气候湿度大,木材的水分比较多,因此不仅在木托盘重量上还有在防腐方面比较差;而北方气候干燥,湿度小,木材干燥,容易裂变。
二、木托盘制作之烘干
选择木托盘原材料之后,木头一定要经过干燥处理,进行有效的脱水,消除它的内应力,使得木材在加工制造过程中不会因为潮湿而产生病虫,不会因为干燥出现裂变,影响木托盘的质量,影响出口。
三、木托盘制作之切割、抛光
木头经过干燥处理之后,主要就是木材的加工了,使用裁板锯进行切割,用平刨机进行刨光、断头,确保木材的光滑性,在选用完合适的木材以后要进行打蜡、精加工,确保它的使用质量达到最佳。
四、木托盘制作之精加工
木材进过刨光之后,就是木材的深加工处理,需要使用砂光机等工艺加工处理,加工为成型彩板块。采用具有防脱功能的射钉将成型材板钉成半成品托盘,或者可用以下防脱垫等。
Ⅶ 制作托盘天平的方法,详细,要有图!!!快!!!!!
方三刀华触曝. 图1图2 取长4厘米左右,宽1厘米左右的胶片,按图3所示,绘好后,用刀片沿图中虚线部分刻出一个滑动槽作成2个连动片。 4.滑动片 1)取一长1厘米左右,宽_0.5厘米左右的一小块胶片依标尺的宽度在胶片上绘也游码(涂实),作成一个滑动片一游码,如图4(a)。 2)另取长1厘米
Ⅷ 塑料托盘的制作流程求高手解答,非常感谢哟!
这里为您简单的说一说注塑托盘和吹塑托盘的制作流程:
一、注塑托盘
注塑托盘是用注射机的螺杆或柱塞使筒内的熔料,经注射机喷嘴,模具的浇注系统,注入形腔而固化成型的。
注塑托盘的生产工艺及流程:第一步: 合模 ;第二步:将熔料注入形腔;第三步:保压 ;第四步:冷却 ;第五步:开模 ;第六步:注塑件顶出 ;第七步:修整边角得到成品。
二、吹塑托盘
吹塑生产过程为4个步骤:
第一步:塑料型胚的挤出; 第二步: 在型胚上将瓣合模具闭合,夹紧模具并切断型胚;第三步:向模腔的冷壁吹胀型培,调整开口并在冷却期间保持一定的压力,打开模具,卸下吹塑件;第四步:修整飞边得到成品。
Ⅸ 用vb制作托盘,说下制作过程
窗体放一个picturebox放图标,在load时用托盘操作api添加图标。
可以在picturebox的mousemove事件中判断鼠标左右键是否单击,以显示窗体或弹出菜单
Option Explicit
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Const NIM_ADD = &H0 '添加图标
Private Const NIM_MODIFY = &H1 '修改图标
Private Const NIM_DELETE = &H2 '删除图标
Private Const WM_MOUSEMOVE = &H200 ’鼠标有效
Private Const NIF_MESSAGE = &H1 'message 有效
Private Const NIF_ICON = &H2 '图标操作(添加、修改、删除)有效
Private Const NIF_TIP = &H4 'ToolTip(提示)有效
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA
Private Sub Form_Load()
t.cbSize = Len(t)
t.hWnd = Picture1.hWnd
t.uId = 1&
t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
t.ucallbackMessage = WM_MOUSEMOVE
t.hIcon = Picture1.Picture
t.szTip = "Show MY Icons" & Chr$(0)
Shell_NotifyIcon NIM_ADD, t
Me.Hide
App.TaskVisible = False
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Show
End If
End Sub
’好辛苦,给点分吧