众文网1.vb6 程序窗体放到任务栏
新建一个FORM窗口 一个COMMAND按钮，这个按钮就是最小到托盘按钮
在窗体上点击右键，选择：工具==》菜单编辑器==》
新建一个一个标题为“随便”名称为ASD的主菜单，在其下建一个标题为退出的子菜单。
当窗口最小化到托盘后，右键单击小图标，弹出菜单，点击退出，程序关闭
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const WM_MOUSEMOVE = &H200
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
Dim tray As NOTIFYICONDATA
Private Sub Command1_Click()
tray.cbSize = Len(tray)
tray.uId = vbNull
tray.hWnd = Me.hWnd
tray.uFlags = NIF_TIP Or NIF_MESSAGE Or NIF_ICON
tray.uCallBackMessage = WM_MOUSEMOVE
tray.hIcon = Me.Icon
tray.szTip = "测试" & vbNullChar
Shell_NotifyIcon NIM_ADD, tray
Me.Hide
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
If Button = 1 Then '在任务栏上的最小化图标上左键单击
Me.Show '显示窗体
Shell_NotifyIcon NIM_DELETE, tray '窗口最小化图标从任务栏中删除
End If
If Button = 2 Then '在最小化图标上右键单击
PopupMenu asd '弹出标题为名称为ASD的菜单栏
End If
End Sub
Private Sub form1_Click（) '菜单栏要运行的程序
Shell_NotifyIcon NIM_DELETE, tray '当点击退出时，小图标从任务栏中删除，并关闭程序
End
End Sub
2.CNIK毕业论文查重系统,在文本框里写很多字体小的字,再用图片浮
效果肯定有，不过如果系统查到的文字总数跟实际看到的字数差的太远的话可不太好。
如果真想避开查重系统的话，有几个方法不错：
1、在论文的参考文献中不要列出你直接参考的论文，而是找你参考拷贝文字的论文中的参考文献，
2、就算是拷贝内容，也不要照搬，按照自己的叙述方式重新打乱整理一遍；
3、定理、公式什么的就没太好办法了，就照实写出并列出参考文献。
4、图片下嵌入文字要有个度，嵌入的文字既要跟论文相关，又不能是抄袭的，最好用之前自己写过又删减掉的语句。
查重率有2个标准：
1是引用了多少内容并列在参考文献中，这个比例高点没关系；
2是引用了却没有列出参考文献，这个就是赤裸裸的抄袭了，一定要降低这个比例；
为了达到这一点，一定要多做引用，哪怕是引用没有直接关系的论文也行；论文引用最好用近5年的论文。
纯手写，我以前做期刊会议论文编辑多年，对这个有些，只要你的文章不是查重率最高的且没超过单位规定的数值，就是安全的。
不过从这个侧面也反应了国内的学术论文的整体环境，呵呵。
转载请注明出处众文网 » 窗体嵌入任务栏毕业论文(vb6程序窗体放到任务栏)