| Вопрос: Форма в ВБ6 | Добавлено: 11.06.07 18:13 |
Автор вопроса:  KreAtoR
|
|
Вопрос таков:
1. Где или как можно сделать так, чтобы форма не отображалась на панели старт 2. Где или как можно сделать, чтобы при минимизации форму она появлялась в трее |
| Ответы | Всего ответов: 64 |
|
Номер ответа: 1 Автор ответа:  Alexandrus ICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #1 | Добавлено: 11.06.07 18:25 |
|
1.Свойство формы -ShowInTaskBar=false
2.Смотри топики и примеры по Tray.(Хоть что-то ты смотрел про Tray?) |
||
|
Номер ответа: 2 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #2 | Добавлено: 11.06.07 18:47 |
| я уже видел такую тему но это было давно и не могу найти | ||
|
Номер ответа: 3 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #3 | Добавлено: 11.06.07 19:15 |
|
'Created by the KPD-Team 1999
'Pieter Philippaerts 'URL: http://users.turboline.be/btl10148/ 'E-Mail: kpd_team@hotmail.com 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 NIF_MESSAGE = &H1 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const WM_LBUTTONDBLCLK = &H203 Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Private Const WM_MBUTTONDBLCLK = &H209 Private Const WM_MBUTTONDOWN = &H207 Private Const WM_MBUTTONUP = &H208 Private Const WM_RBUTTONDBLCLK = &H206 Private Const WM_RBUTTONDOWN = &H204 Private Const WM_RBUTTONUP = &H205 Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Dim TrayI As NOTIFYICONDATA Private Sub Form_Load() TrayI.cbSize = Len(TrayI) TrayI.hWnd = pichook.hWnd 'Link the trayicon to this picturebox TrayI.uId = 1& TrayI.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE TrayI.ucallbackMessage = WM_LBUTTONDOWN TrayI.hIcon = imgIcon(2).Picture TrayI.szTip = "KPD-Team 1999" & Chr$(0) 'Create the icon Shell_NotifyIcon NIM_ADD, TrayI Me.Hide End Sub Private Sub Form_Unload(Cancel As Integer) TrayI.cbSize = Len(TrayI) TrayI.hWnd = pichook.hWnd TrayI.uId = 1& 'Delete the icon Shell_NotifyIcon NIM_DELETE, TrayI End End Sub Private Sub mnuPop_Click(Index As Integer) Select Case Index Case 0 'About MsgBox "KPD-Team 1999" + vbCrLf + "E-Mail: KPD_Team@Hotmail.com" + vbCrLf + "URL: http://users.turboline.be/btl10148/", vbInformation + vbOKOnly Case 2 'End Unload Me End Select End Sub Private Sub pichook_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Msg = X / Screen.TwipsPerPixelX If Msg = WM_LBUTTONDBLCLK Then 'If the user dubbel-clicked on the icon mnuPop_Click 0 ElseIf Msg = WM_RBUTTONUP Then 'Right click Me.PopupMenu mnuPopUp End If End Sub Private Sub Timer1_Timer() 'Animate icon Static mPic As Integer Me.Icon = imgIcon(mPic).Picture TrayI.hIcon = imgIcon(mPic).Picture mPic = mPic + 1 If mPic = 3 Then mPic = 0 Shell_NotifyIcon NIM_MODIFY, TrayI End Sub |
||
|
Номер ответа: 4 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #4 | Добавлено: 11.06.07 19:19 |
дальше положили на форму 3 image з именами imgIcon -зделай сних масив+timer1 к нему интервал 200+picturebox з именем pichook+menyeditor што нибудь напишы и все готово i'Mh а dOCaL
|
||
|
Номер ответа: 5 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #5 | Добавлено: 11.06.07 19:19 |
|
дальше положили на форму 3 image з именами imgIcon -зделай сних масив+timer1 к нему интервал 200+picturebox з именем pichook+menyeditor што нибудь напишы и все готово i'M а dOCaL
|
||
|
Номер ответа: 6 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #6 | Добавлено: 11.06.07 19:20 |
|
imgIcon -постав не большой рисунок
|
||
|
Номер ответа: 7 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #7 | Добавлено: 11.06.07 19:21 |
|
imgIcon -постав не большой рисунок
|
||
|
Номер ответа: 8 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #8 | Добавлено: 11.06.07 19:21 |
|
imgIcon -постав не большой рисунок
|
||
|
Номер ответа: 9 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #9 | Добавлено: 11.06.07 19:21 |
|
imgIcon -постав не большой рисунок
|
||
|
Номер ответа: 10 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #10 | Добавлено: 11.06.07 21:37 |
|
XXEncode (WinAce Archiver www.winace.com)
begin 644 tray.zip hI2g1--E++++6+0CemnNBBUCRY+I++5YF+++B++++MqlnGKtIQa3t9aBgQupL hqqvPC--x1t-z4DWVQE+rG3wL8-Oy83ZVTMAZ7yWHEIaonGpB0WFZpzru1YZN h3nRS7o0369P6AsRnVgDVy0JMFC3g0ZwS5a2svYTFvQoUS+ubhnQ+Ys6PhhEI hjg9b9k-rgGec5NxHdNYq7C3quV3bdh9IUksn6cMAaAWMq+ncZimNJ0JqbomZ he10F93F88wVja2YQlMc6HJ91d7X6X28xNZzUx0ntXuPaxWOMXatjygMcZVG4 hkghUBGIvuq+btHcIm59gb+4SiIk6hv+c7ub3DV4iuFZee0UtWQIEb2zD3Qpc hmUZyVBY3Wi-59XJhnBtxzWAD2YK48+Bm1IBCh+OAIA5dLp-djfqtjNbZBbW+ hLb0KAaC5tcfh0HerKqpTFTMDmn6ec8xV9AI4vYP3PbS2+yuTD2-VDJx9-GbV h5-8GThRBSw2mOnWRlS5Hhr+sasvuQPw7G3uMNVUyWld6mGYFQ-ReA3g892Kz hxiLwYNezasPOGo8nm0VA7CRrYO+40DNI4-G9jYrYbbPjrtdNthp-MMlokY7V hu6OeBs2XSF1LcOC21z5hyth6r6YMxKm7m1Wpqq5gKqXZ4KZ1K75BZQmdAYRs hdgMXijSbmBiA-z1zjT3L5y25xrOO1YFKoRWZntb53PCU-wxH9b1TK83WxiiQ hc2r225TQdVFP5ypISqIj4XQI1AhhUXXByeUBrM5-p5CvyvPiaCKcihnNhauQ heZHfbzXq5fqSoQ2fpfT26g9FywxDU6Kas5ms7SdXgjhNpYVU6wyZDm+4chAq h+4O3otJE1-Bp-kbxEmCaMJo6JxgeKJ4F+D8vzKh74B4Yq1nohIMrubBJZOoa hBBdGnZRM6Yg7A+obeztcpDBlO2-fcfeypJa4jXWxmnkXVidnaNJwFRSQdUO3 h5W53Ev0lK6a4NE0YgjdP2bpwrujmiff7P6E3e0KkfK3-Rr7zEID9AkzwQtuB hUb2E-xR0vzSkvLSnIiCffz4fI11104QzOQizia9WbTQm+3zzjIqbWQB6P-Xe hJo+UREOMZHqLd8axuuU9IROs+ofxP+S5p7ujpyb6BEhi5AQSh1buNe+OsTZO h52GK8tbWy-lLuK7G8ufpP3quVVTD58Tj8thh89EVkhr2zHmjrligyeQHtCzq hGf65b5Gt6MGvoRMJVmN17z5JuEdyR-xv3Iaj4HO5vq07K059yRAFs+YuDLUw hzLptxDwOEsDX0y5kK0egcwXn0KrJT1RGCPSUuyu2ZZMFBLsh0qu7uQ5nurWp hX683jL7vXeCpnpKWy-rpOEYq9prj-Rec6XK3wZMcmKnf7DLDEtd2O6yiXObc higbvSfOuD-uPMvXhCBHoh7uh8b0bItJTLuoPaA6KMBhcH8XKN4BLTtoscOjc hKlEjyhyOs0RCBVcVoz-dNTgDa0brDEvbduyH66funo5H8VnJPiBdQy9TeVdD hNLY4jNI3no+8TcH2pr1P3matUtrAmekl2an4cxjZmR36+HgjEwC40ee68SrQ hdYGy2ZbfJV4OStcm+hr1b0WmCyIAvbLfjNJU2LKZS2Uo9K4JPXzsOcgZFbAm hSkbOmPoUHBCnridrsz3U4QTMtwpSdlTBuvtebsndqjWSuTsWqL9yzpH9z7p2 hcw3sCDvr+ZbRl3pXKrlEss7hhZTNfciwnjEVZJTd7VyICQ5XnCYpiiguro5p hEO3hjjdQyxDkfbgpdaf5-13bpyfRY2hxuIuAeAX8AxeinJP1Q1m9UiN3w8b3 huziAicpYOq+4u+yaXTOEQBrg2S7hgt9KLIcZ3j5B-NN0BGz2ydsvjpnP3Gxq hLSa5mhs-DPAuo-dWcfwDW+6YIRHr2lZo4So-2nWWQmZgB8I17YEBDSGyrM7t hmpMHRWoYZzgdT4l5TG3K9T5qyyITorzkVzgjI2g1--E++++6+7CgmnN-P3nw hdEA++9Q5+++7++++FaxmPH2iNb7hnJJRPy7435p5sXzQtMJ2qW0GvOOhp3MW hUFGYT0akF5q8ljM+ctWlNMyLN5xRJOajixcTIAblfVgjM4AvLKoZcePLBUF2 hEzhO0ryAntpnnhlvlvFfNwr4mH4w97L9yRkSvH6CvPrGUKPo6PZgEns5+Dh2 h3onXA1yylvCEscIAJlbZcYtNhmTay6jmhyIZw7-ql49mvX9IojEZrexS9aDb hH-4x-PPvHEMSAbu7otWwlZ-H7WeRyJYpZ63nsZLaNYwPB5W9a7QGAKNU4QzW h+J3BacI6McVLyeZagWEf4HZ4b1CiO+AHefF193KYgMwdDO9Q+ZrHgsGimmY4 hn3O+FtiNH37dBbXOmXwIyhkuaKigZrYP1wBdTDycJCD8KffOpLzGzH9x55lQ h7QjiuOIWVA2YGp1YjHUaTMfHNhJO+LxIBMacGIVH7r6GZutp7KfTc2EEGJq5 hbldIcP78wBNEA8NZK8gVhGhRAuam60XyvAF-03jUi0Bjy-nw+AOy0zXnPVor hWZoTBX1ezH0MS45Uq0CMV+xX-C2ahCxirR+4rsOVDEn4Kr2+YTodRdz1tm0y hVvgPxpB0B+b4zZzksOC9D4zXOHGoIEEbsNG70x6p1-UbL63BDD8tF4lWXtz- hVizxvavWg8x7H1N6FtFAnH7Yqh4A9Wpl8h-pX-Oxw+t3EJTTU-iBD9mUi-Cu hskTkA41YzV5sgDrpvhLCHbb-vYnzR3CtYumma-aJmEnPxxGGw+bCaSXJLZAi hH2kYiMO80P7eBbUmKAde0dMkhKpWp8aeBueMr8phd15MOs7sBGg753VQHdKO hJ4+Ho8uVKJn7BUxiP+Y8ZYaB3ng3qBWvPVAJSUCi78e54ixinVzmiEJnot9G hfxL3cIOI1JkAAeRqoA2l5GnPHIpK38IVOrkquWLD47bQGbIgU2dbG6jdGOTK huTInO-HvIC58KSIb67Q2nVx9JIWPDD5kd8InOf6rB13JT-R26lQW7kXh9ttX hyxs1F9UD5RiBwvZ4-v6IB+LCFxZhODIcVndHu1e3P5hSv4CJ9VC3Jpn3-A1F hjossoFQHWfxWbu+XBzHjsW-dzW08MhirbN45hgME1933DSnQcLovHRys5s8p hNZRSMdAZLxBpNh68LJEZBPCnNkaVwOGw1GtcZlfz1rx54bNXJFjk7kqWoCnp hRnz+HWNGiq6WcriWkPBa9ju4ezYG-nQkRj4Hs+TVq-vRyw4g5oN-R3weZR0B hdZjuz7xXmSTTI2g1--E++++6+04emnPHsTebqEI++8wI+++B++++PKxYGKtI hQa3t9a7VQvpMKKwPBl-yBy1zAB-19PJCY1ViSU-4gHfg0BI3fKkXHk8pCt8q hLd20mPKgzDfmYfaLf++BuWRvXayyCHXYCd0G7shA6XmotmCmEPW-lcP3THfX hNBwsDvhsxoBy33+c0NT+ZX-YQNPWbz+Otjngz4mwZEaXo5jNdYaIG0quS2lc hn5M0UYbzEdmTRH380ISsnKVYX8SsGcF2rYa721-63h16-D7DJko6ocE6O-Eg hUUPAnwz+zHGhJm1UQRHh166kPCYz-cmiOY7pC-87ZZ1jdHNKoOEIf9pz60b2 hGV58TMe5G7RU3SbKg32BA8dEBQIfDMumgzUJEkRT0zvW-Fv8uTNZMzeMl57R hYLv-N9KKPk0h5qYw6FmdBndcVYWnWf-DVGEokVmGhoar0cdgh00UyvTu2e8w hNFlLb4IohfIdBeTdsipcT6-dJK9KEuwlHSQX7dDZjVwlOb43ZbuuSVybeShw h5epFRUcOjjR1368gA7xaZoU0EE3WB7vpPvzqCyBFBtU3DjTXsqzHRiX3v8g2 hOtowmrFfFwcDpsbeKlmhfnoI-MjGaT0ReMlPbwPsIdP4il2Ob393ZCU2Glez hINq4pzh0tD-f4Su4MZKFqO5pvHJztt3CnrC5PTR1r10yhpGTY3BAwlhBdYDq hXBOaXaqAcb62-Mwe4kTdmdznhmXRbKnmrLxewaY4LJlOz+ZbIGq1UgJ7-eSP hS5nFiOty1ypvmYxSI0KPAjLHZsBTd3J4tqSnzFN94wL0FsgkyMPSpAxtLd9p himL-PIdKcWHfY1FRYCX7be2meBu0FN5sBYiqDVDs4HtTbtzpJ5-Bxo1vxJdq hHida8o4bqmJJZ9SetJtVYyiY+ZwY7qKtieFuKbtJIDUWbiGyvaFQA3sG9bVP htKwjcH75wIrTTvdtJIpBLsi3a4G9B6bIJZ1wMBETncBi3qvUdmwTObH1QJTp hqOUzpeWvjI3jpXDeesfuRXvgVK3kprDiJPqSbuDCgzv2u8t9igTVz1vgHOri hksS8Jb3Kyi5skT4eAlaovqQnBPjXlt2nybXIu5vWH8uCsvE5bQ5TnilHpKlO h0LRxnAW5yvLCd-fiQoo-8i3yCqPYkzpSNp6BxoRxByPVpr+q1RGYjDPb3uX7 hc1AMVqsSmaqtSlkMFvpEZ2LnrRL5ZbamTm5D01i2V0Mm6ObOAKeMWLVO21t3 hMPs+xWXzIb+wSGMGMHBTi9rFJmtcXYyPgFE7nLo-PBle2IUZg2n0PcoIt-d- hKb-6-5+P+4DZ0Ao2fs5E497h8lwh8v979wi9PfPNv43tqByGURdgP+R-50hg hAJsOYF17mWfVaT02936wJATjzcYmOx8ObEk+FeaeFgpNTzIl38McAosJx2AP hqC6TX0FgKI7pMFNvc-DnCuz4uy6IZwq1jV+rGcLxn19-wmyA-w6bYXSBPyjG hzTY8cWHLBEnhNss+scVlIkfDhwfBS-Vyme9+mBTZ01LXKeGbA6skuu8EbCp3 hcLeFEb1JArZ0YualsPh2c7sTNLYVx9k+lmJmp5R+l18e7clZeL9HclklnVJK hunKpA3i+WqP8fa8xZhmaoYoqE6xadlpwjLou0hRYAZD2RjNXFhxi44QQMQas hMFnf8LJecGF2yc8uR2Kp0JOjDx6Is-hjcYmxWKdSDzKjclBD6iDfut3ilvtC hLZkSWflPTkYX7eh9EVK6ybSG3Xex3OdO8hQwI6WdbcMC2KVGxAsLyXFKJeBY hihOSZ-gbvuOFmZt8urxQiXT3xrBHpzmmg1xPFPQE7H1huAuoUGbN8DpvrISJ hgwjPRSPkoJ2oxuCODoGt2jGLCZineBi25lOdI4WM5usbeUOG9DHyHIeZe4vK hzvIMIvG1flxgrtyv4VAr49ZF8NsIi0ZyTJX8NcEiGnJrc5J9rHrlHN3rdGjB hJOrXxdFUyjeA06IRYR5ObDd2yVjg+7kTyaMflvxuK4tUlXDAapGjkNjuzmMo h4oJuXSB78Y5hDzRyr9wEJNFz+J-9+kEI++++0+0HfAgqY5nH4dY-++0T+U++ h1++++3-mPqdZMrEl9bNWQ3JFHMyPA-0x6z2TJiHGJWfmYZIjZEwd90pGYu+a hnJtmAH1gSigDN+zNN8jyxxcsNJI9KSyxaK3abjSL+SXx4S8cp2NGTxqajN3l hx+BuA8-Oc-yCLrwHEX7mhmET5PVSyMHaQzTdnm79mM6gojEsTkzJdhUyv6vq hMV5YAXhOv9G+92LF99PTvqxK6qf7Y4gJFvZUph7Kq2fh1PhwjdZVuZ+QfLIr h0e-GRzwGNdUqn0JIfJPH5gaoG-75CqE4ly3Bm9KIH5L9X0OCPNU2ahF4DoC9 hDjkBl7-fVL14ee+70FI1Exs6QDoVO4jqfAo-19ppa8i+WHThl8rPtIfxQdJe h1IVESBJqM2tURiAkO6AZ3q0xuc8yPieZ9a4gMfquhiRWQgUzZYzS1gUZTzpD h8xZ7alcIwZ4uTRuVTCzZr6pwsD-GE1AyJefLLhncZS1AQjLcqFQxegvaHx1y habvidii3Tda3IhGO8rnXFLKMmIxZT1ZoNSpcgBjP346A2LkkK6CAes1rHkNM hJsDNBhts9urNSHD8lYZxW3fjvJxEGkA23+++++U+Z8n9BdBFBiNS++++RU++ h++k+++-EQaxeNKBoAGtqMbRnmmz8BJGkJH0rp32kB1TJ+H8AR-EgX+po35EI hX6m+q-6cNUmIA9AkoJ3ktiJ8nWbqn+gdGek2uX6-0dZO+-KMaUA7EqCkUhnw h39U0EpCU0WA1c6G3aHaEA9I+8k2+I2g-+VE+3+++++U+6uf9BYoq+tqE-E++ hSF2+++o++++++++++++U+++++++++4BgQoZiJ57VSGtXP5BEGk203++I++++ h0+0HfAgqEKlQz8I1++0r-k++0E+++++++++++0++++0v-E++FaxmPH2iNb7h hI2g-+VE+3+++++U+6Of9BhDVyeTN-E++flE+++o++++++++++++U++++VkY+ h+4pjN2ZiJ57VSGtWMLBEGk203++I++++0+0HfAgqY5nH4dY-++0T+U++1+++ h+++++++++0++++091k++I57jOaJXR12iRa7kI2g-+VE+3+++++U+Z8n9BdBF hBiNS++++RU++++k++++++++++++U++++HV2++3-mPqdZMrEl9bNWRp-9-EM+ F++++-E+3+02-++1K2E++++++ + end 4877 bytes |
||
|
Номер ответа: 11 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #11 | Добавлено: 11.06.07 21:41 |
|
Вроде ZagZag придумал так файлы передавать )
Копируете в блокнот, сохраняете текст как, ставите расширение .xxe, открываете архиватором. Примерчик оч неплохой имхо. Опять же имхо удобнее пользоваться. Но ГлавноЕ - иконка восстанавливается при рестарте панели задач! |
||
|
Номер ответа: 12 Автор ответа: AlexandrusICQ: 496782368 Вопросов: 18 Ответов: 312 |
Web-сайт: Профиль | | #12 | Добавлено: 11.06.07 22:14 |
|
Docal,рейтинг поднимаешь?)
|
||
|
Номер ответа: 13 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #13 | Добавлено: 11.06.07 23:08 |
|
alexandrus
Либо поднятие рейтинга, либо Gprs )) |
||
|
Номер ответа: 14 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #14 | Добавлено: 11.06.07 23:40 |
| Gprs ето и круто и бадыль одновремено.Куда мне ответи зарабативать ето акуант не мой | ||
|
Номер ответа: 15 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #15 | Добавлено: 12.06.07 00:21 |
| Вооюще ZagZag знает толк в програмах | ||