آپ
بانک مقاله با این ادرس شدیدآ آپ شد-گالری آپ شد
http://nasservb.persiangig.com/other/all.htm
اینجا هم راه افتاد
http://b.domaindlx.com/nasservb/
لينك مقاله |22:37 دوشنبه 28 اسفند1385 - توسط ناصر نيازي
کتاب-کتب
يه سايت خيلي عالي براي Windows Server
http://www.petri.co.il/
===============================
===============================
Link ADDED BY USER : NKM
يه سايت خيلي توپ در مورد ويندوز، ابزارها و كتب
http://www.windowsitlibrary.com
===============================
Link ADDED BY USER : the_lady_in_blue
ftp://ftp.cdut.edu.cn/pub3/uncate_doc/
ftp://195.135.232.80/Books
===============================
Link ADDED BY USER : ali_aaa
885 تا كتاب با طبقه بندي ير اساس حروف الفبا
hXXp://leon83.com/download/book/FreeBookList.htm
www.itebooks.net
===============================
************************************************** ******
ftp://194.105.193.56:21/pub/warez/books/
ftp://guest:www.7yue.com@210.192.122.19/
ftp://dimm.d2g.com/books/computer
ftp://194.105.193.56:21/pub/warez/books/cbt
ftp://ftp.leivo.ru/pub/warez/books
math and physics
http://valle.fciencias.unam.mx/libros/
http://www.c2h2.net/files/ebooks/
http://www.twistedinternet.com/library-files/Underground%20Magazines/
ftp://ebdl:QobRc-8sP@200.80.35.234
ftp://195.135.232.80/Books/
http://tool.eu.org/docs/docs/books/books-online/
http://www.thaifast.com/
Ftp Site : www.thaifast.com
User: studytools
Password: thaifast
http://www.ebookcn.net/ (Slow Speed BUT HUG database)
http://www.ebookcn.net/search.php?type=name&key=wiley
http://www.ebookcn.net/search.php?type=name&key=MH
http://www.ebookcn.net/search.php?type=name&key=Oreilly
http://www.ebookcn.net/search.php?type=name&key=Premier
http://plexus.shacknet.nu/plexus.php?section=ebookz
اين ام يه FTP ديگه :
http://bookshelf.sleepnet.net/files
لينك مقاله |19:4 چهارشنبه 23 اسفند1385 - توسط ناصر نيازي
کتاب -کتاب
منبعhttp://www.abtahi.biz
لينك مقاله |21:25 دوشنبه 21 اسفند1385 - توسط ناصر نيازي
آموزش ویستا



Microsoft windows vista xp pro sp3 aio Bootable Cd v 4.5
Last updated January 2007
.
Programs Integrated
Adaware 1.6
IDM 5.08
Maxthon 1.5.9
Sygate personal firewall 5.6
Nod32 antivirus 2.7.23
Tuneup Utilities 2007
Winrar 2.62
Winamp 5.32
Windows Mediaplayer 11
Klite Mega Codecs Pack 1.64
Yahoo Messanger 8.1
Msn Messanger 8.1
Msn Explorer 7.0
Ultra Iso 8.6
Snagit 8.1
Google Mail
Netframework 2.0
Foxit pdf tools
Unlocker
Crack wizard
Cdimaguie
Easy Upload
Flash player
Image Shack
Restoration
Logger Convert
Screen Capture
Unfreez
Usb Format
Worm door cleaner
Xp antispy
Xplite
System Information
Winxp activation
New sounds
New Cursors
New wallpapers
New Themes
New Screen Saver
Vista Visual tooltip
Vista Sidebar
Vista Glass
Vista Flip 3D
Vista Styler
This Cd was created and designed to include two operating system Vista xp Ultimate pro and vista xp Home Edition. All xp sp3 hot fixes until January 2007 were integrated with winxp sp2 during the setup process.
This winxp is original version oem , I didn’t remove any components except lang. files but if you like to add any lang. you can add it from any other winxp you have I designed it to accept these lang. files from any cd contain it, when system prompt to insert winxp cd during installation of different lang. just insert any other winxp cd you own contains lang. folder. Some system tools were integrated as (xplite) for removing any thing you like after setup by yourself , I am only added some additional new Look , as new themes , new sounds , new games , new cursors , new wallpapers , new screen savers , new system tools and Vista Glass style of aero as windows vista without slow down of system and without need to new vga card.
This version of xp can be installed from boot cd or from windows .
Programs Integrated
Adaware 1.6
IDM 5.08
Maxthon 1.5.9
Sygate personal firewall 5.6
Nod32 antivirus 2.7.23
Tuneup Utilities 2007
Winrar 2.62
Winamp 5.32
Windows Mediaplayer 11
Klite Mega Codecs Pack 1.64
Yahoo Messanger 8.1
Msn Messanger 8.1
Msn Explorer 7.0
Ultra Iso 8.6
Snagit 8.1
Google Mail
Netframework 2.0
Foxit pdf tools
Unlocker
Crack wizard
Cdimaguie
Easy Upload
Flash player
Image Shack
Restoration
Logger Convert
Screen Capture
Unfreez
Usb Format
Worm door cleaner
Xp antispy
Xplite
System Information
Winxp activation
New sounds
New Cursors
New wallpapers
New Themes
New Screen Saver
Vista Visual tooltip
Vista Sidebar
Vista Glass
Vista Flip 3D
Vista Styler
http://rapidshare.com/files/14513954/win_xp_vista.part1.rar
http://rapidshare.com/files/14513347/win_xp_vista.part2.rar
http://rapidshare.com/files/14513277/win_xp_vista.part3.rar
http://rapidshare.com/files/14553836/win_xp_vista.part4.rar
http://rapidshare.com/files/14595000/win_xp_vista.part5.rar
http://rapidshare.com/files/14642809/win_xp_vista.part6.rar
http://rapidshare.com/files/14683244/win_xp_vista.part7.rar
ضمن اینکه اینجا هم جواب می ده مال منه
آدرس جدیدم
لينك مقاله |10:38 دوشنبه 21 اسفند1385 - توسط ناصر نيازي
یک کلیپ باحال
این یک کلیپ با حال به زبان ترکی است که در آن انیمیشن های راهنمایی ورانندگی مسخره می شود
ترکهای مثل من و همدانی ها دانلود کنند
854KBکلپ ترکی
لينك مقاله |21:45 یکشنبه 20 اسفند1385 - توسط ناصر نيازي
کتب کتب کاتب مکتوب
(E-Book - Martial Ar..> 01-Sep-2005 18:20 1.9M
(E-Book - Martial Ar..> 01-Sep-2005 13:33 1.9M
(Ebook) Acupuncture ..> 01-Sep-2005 18:24 3.0M
(Ebook) Acupuncture ..> 17-Jan-2005 19:57 3.0M
(Ebook)(Occultisme) ..> 01-Sep-2005 18:31 2.7M
(Ebook)(Occultisme) ..> 01-Sep-2005 13:42 2.7M
(Woodworking) Sheet ..> 01-Sep-2005 18:34 1.1M
(eBook) The Strange ..> 01-Sep-2005 13:34 82k
(ebook) (fr)(occulti..> 01-Sep-2005 18:18 340k
(ebook) (fr)(occulti..> 01-Sep-2005 13:33 340k
(ebook) David Blaine..> 01-Sep-2005 18:21 434k
(ebook) David Blaine..> 31-Aug-2005 20:49 291k
(ebook) Wang Shu-Chi..> 01-Sep-2005 18:23 657k
(ebook) Wang Shu-Chi..> 01-Sep-2005 13:35 657k
(ebook)(Fr)(occultis..> 01-Sep-2005 18:35 5.9M
(ebook)(Fr)(occultis..> 01-Sep-2005 13:48 5.9M
(ebook)(Fr)(occultis..> 01-Sep-2005 18:25 490k
(ebook)(Fr)(occultis..> 01-Sep-2005 13:36 490k
030915 [French Fr Ps..> 01-Sep-2005 15:14 905k
2 Dim Mak Encycloped..> 01-Sep-2005 15:10 733k
2 Wing Chun History-..> 01-Sep-2005 18:01 181k
2 Wing Chun History-..> 01-Sep-2005 15:10 181k
2_introduction_au_ps..> 01-Sep-2005 18:02 93k
3_la_tlkinsie,_par_t..> 01-Sep-2005 18:02 198k
4_feu_et_glace.pdf 01-Sep-2005 18:02 60k
5_comment_faire_une_..> 01-Sep-2005 18:02 160k
6_des_choses__faire_..> 01-Sep-2005 18:02 66k
7_paintball_psi_et_a..> 01-Sep-2005 18:02 75k
Acupuncture (front).jpg 01-Sep-2005 15:14 75k
Acupuncture Akupunkt..> 01-Sep-2005 15:28 6.5M
Amazing subliminal M..> 01-Sep-2005 18:02 18k
Anonymous.-.Magic.Tr..> 01-Sep-2005 18:03 305k
Artes Marciais - Pow..> 01-Sep-2005 18:05 982k
Astral Projection An..> 01-Sep-2005 18:05 58k
Astral Projection Co..> 01-Sep-2005 18:05 72k
Astral Projection Co..> 01-Sep-2005 15:57 50k
Astral Projection Co..> 01-Sep-2005 15:57 46k
Astral Projection co..> 01-Sep-2005 18:06 72k
Buddhist Meditation ..> 01-Sep-2005 15:59 890k
Chi-Kung Developmend..> 01-Sep-2005 16:09 4.0M
Chi-Kung Developmend..> 01-Sep-2005 16:00 1.3M
Cool compress頰ar D..> 06-Nov-2005 18:10 3.7M
Copie de wing chung-..> 01-Sep-2005 16:27 13.3M
Copie de wing chung-..> 01-Sep-2005 16:00 409k
Cours Visual Basic E..> 01-Sep-2005 16:09 193k
DIM MAK - FOX TV Chi..> 18-Jan-2005 19:43 7.3M
David Blaine Street ..> 01-Sep-2005 16:12 84k
David Copperfield Ma..> 01-Sep-2005 16:12 103k
Dim Mak Point and Pr..> 17-Jan-2005 20:05 11k
Ebook - Buddhist Med..> 01-Sep-2005 16:12 181k
HYPNOSE/ 01-Sep-2005 13:27 -
Karat頓hotokan & Ko..> 17-Jan-2005 20:05 35k
MOI/ 20-Nov-2005 15:19 -
Martial Arts - Dim M..> 17-Jan-2005 19:53 815k
Martial Arts - Dim M..> 17-Jan-2005 20:05 93k
Meridians in Acupunc..> 17-Jan-2005 19:54 910k
Occultisme - Lao Tse..> 01-Sep-2005 18:06 146k
Occultisme - Le Proj..> 01-Sep-2005 18:07 656k
Occultisme - Les Pro..> 01-Sep-2005 18:06 290k
Occultisme - Pierre ..> 01-Sep-2005 18:09 1.2M
Occultisme - Robert ..> 01-Sep-2005 18:07 195k
Occultisme -The Herm..> 01-Sep-2005 18:11 1.5M
Occultisme -The.Herm..> 01-Sep-2005 18:12 1.3M
Occultisme Satanisme..> 01-Sep-2005 18:08 381k
PsiPog_net Did You ..> 17-Jan-2005 20:06 14k
Psychologie - Eggets..> 01-Sep-2005 18:17 1.9M
ReBorneD/ 12-Jul-2005 19:48 -
[Ebook_FR - French -..> 01-Sep-2005 18:58 10.8M
[Ebook_FR - French -..> 01-Sep-2005 15:35 31.1M
[Ebook_FR - French -..> 01-Sep-2005 17:00 8.5M
[Magic] Levitation L..> 01-Sep-2005 18:01 140k
[Tai Chi] [Qigong] E..> 01-Sep-2005 18:01 444k
[conspiracy-UFO-Rept..> 01-Sep-2005 18:34 112k
[conspiracy-UFO-Rept..> 01-Sep-2005 13:43 112k
[e-Book FRA - Occult..> 01-Sep-2005 18:58 11.1M
[e-Book FRA - Occult..> 01-Sep-2005 15:06 27.5M
[e-Book FRA - Occult..> 01-Sep-2005 17:00 8.4M
[ebook - elivre FR] ..> 01-Sep-2005 18:34 109k
[ebook - elivre FR] ..> 01-Sep-2005 13:43 109k
[ebook FR - French -..> 01-Sep-2005 13:44 667k
advanced telekinesis..> 01-Sep-2005 13:34 22k
allenarsi al dim mak..> 01-Sep-2005 13:34 109k
anthony robbins Eboo..> 01-Sep-2005 18:05 1.5M
crop-circles.pdf 01-Sep-2005 16:11 999k
dim mak and acupunct..> 17-Jan-2005 19:57 17k
eBooks - Math - Math..> 01-Sep-2005 16:16 418k
ebook - Martial Arts..> 01-Sep-2005 16:15 1.3M
martial arts - Dim ..> 17-Jan-2005 20:05 140k
parapente.pdf 01-Sep-2005 18:13 620k
plan de Dijon.pdf 01-Sep-2005 18:16 1.9M
points vitaux.zip 17-Jan-2005 20:10 2.5M
seb tk pypy geant ac..> 16-Jan-2005 10:57 2.4M
لينك مقاله |0:14 یکشنبه 20 اسفند1385 - توسط ناصر نيازي
تشکر
تمام کتاب های پایینی از سایت دوست خوبم پژمان رودخانه ای است
http://ebook.blogfa.com
لينك مقاله |15:27 جمعه 18 اسفند1385 - توسط ناصر نيازي
کتاب بازم کتاب
لينك مقاله |15:22 جمعه 18 اسفند1385 - توسط ناصر نيازي
کتاب-کتاب-کتب-مکتوب کاتب-کتکوب
-پايينيا اكسرآ پارسي و همه به فرم پي دي اف
لينك مقاله |11:28 جمعه 18 اسفند1385 - توسط ناصر نيازي
نظرات شما
از نظرات خوب همتون بینهایت متشکرم
کبریای عزیز:
فقط اینجا چند تا نرم افزار رو نوشتی "نمی دونم"، خواستم من بگم:
SUPERAntiSpyware 3.1.1010 یک نرم افزار قوی برای جلوگیری از ورود Spyware به سیستمتون است.
Divx هم یه نرم افزار برای پخش آهنگها و فیلمهای فشرده شده است
آقا مسعود:
سلام عزیز
داش وبلاگت من از اول تا آخر خوندم
من یه برنامه نویس مبتدی یم انشا ا... که به من یاد بدی من وی بی 6 کار میکنم
راستی آهنگ وبلاگت عوض نکن شوخی کردم آخر آهنگه 
امید آقا:
_ عاشقي را شرط اول ناله وفرياد نيست
تا کسي از جان شيرين نگذرد فرهاد نيست
نیمای عزیز:
سلام دوست عزیز...
وبت واقعا که توپه توپه توپه...
بیای یه سر به وب من حقیر هم بزن...
راستی...یادت نره اگه بخوای نامردی کن و نظر هم نده...
ولی حتما مطالبو بخونو وبلاگو به دوستاتم معرفی کن تا این سبک از موسیقی ایرانی
پیشرفت کنه...
مازیار دوست خوبم:
داداش یه نظر حلاله
آقا مهران گل:
سلام خسته نباشي
ولي اون منوي پيشرفته و بسيار زيبات خيلي مذخرف بود يعني انده بچه بازي بود
راست می گی اون منو هه واقآ مسخره بود خودم هم خجالت کشیدم
برای همه نظرات بینهایت متشکرم.
امدوارم بازم بتونم به شما عزیزان خدمت کنم
لينك مقاله |16:51 چهارشنبه 16 اسفند1385 - توسط ناصر نيازي
صدا زدن متغییر ها
سلام مبحث امروز هست
انواع ارسال متغيير هابه يك تابع
ByRef
در اين مدل خود متغيير وآدرس آن خانه از حافظه كه اين متغيير
رادر خود نگه داشته به تابع ارسال مي شود
مثال
Private Function Zarb(ByRef Value1%,ByRef Value2%)as Integer
Zarb=value1*value2
value1=0:value2=0
End Function
در تابع بالا متغيير هايي كه به تابع ارسال مي شوند
در خط آخر خالي مي شوند.ولي اگر ما متغيير هارا به
صورت
ByValتعريف كنيم فقط يك كپي از آن به تابع فرستاده مي شود
ومقدار متغيير با هر تغييري در درون تابع حفظ مي شود.مثال
Private Function Zarb(ByVal Value1%,ByVal Value2%)As Integer
Zarb=value1*value2
value1=0:value2=0
End Function
در تابع بالا مقدار متغيير هاي اصلي هيچ تغييري نمي كند
نكته:اگر بين
ByوValفاصله بيندازيم خطا رخ مي دهد
نظر بدين
لينك مقاله |0:8 چهارشنبه 16 اسفند1385 - توسط ناصر نيازي
فایل دایالوگ عجیب
امروز چطورين اون فايله رو دانلود كردين
حتمآ كلي كف كردين.آره ديگه مي دونم نزنين زيرش .برا امروز يه پروژه آماده كردم كه با اون مي تونيد
كادر سيو و آرشيو عجيب درست كنيد.زياد طولش ندادم كه كدتون كوتاه شه خودتون برين تو نخش ببينين چي كار مي كنه
خب يه ماژول اضافه كنيد اين گوني رو توش كپي كنيد
دو تا كامند براي سيو وآرشيو اضافه كنيد وبه ترتيب كد زير رو براش بنويسيد
ShowSave
ShowOpen
روي فرم دابل كليك كنيد و كد زير رو بنويسيد
DlgLeft = 100
DlgTop = 100
DlgOpenText = "باشه"
DlgCancelText = "برو پي كارت"
DlgFlags = OFN_EXPLORER Or OFN_ENABLEHOOK
InitOFN ' Me.hwnd
ديگه حوصله ندارم علمي كاربردي افتادم اعصاب برام نمونده كسي هم كه نگفت رتبه كشوريش چند شده
نظر دادين دادين ندادين هم خيالي نيست
لينك مقاله |10:20 شنبه 12 اسفند1385 - توسط ناصر نيازي
دنیای کلاس و ای پی آی
برای امروز یک فایل حاوی هزاران کلاس وای پی آی آپ لواد کردم که نوش جونتون
دانلود دنیای کلاس و ای پی ای حجم 1.95مگابایت
فقط نظر یادتون نره
لينك مقاله |15:31 جمعه 11 اسفند1385 - توسط ناصر نيازي
AVIفرمت فايل
سلام
واقعا كسي كنكور سراسري كامپيوتر قبول نشده!!توي پست قبل كه خاسته بودم حداقل رتبه كشوري
براي قبول شدن رو كسي چيزي ننوشته بود.خواهش مي كنم من به اين اطلاعات براي برنامه ريزي احتياج دارم
پست امروز مربوط به فرمت فايل اي وي آي هست
در ضمن شايد تا مدت نا معلومي نتونم پست كنم
زياد طولش نمي دم كه وبلاگ پر بشه دو تا كلاس و يه ما ژول به پروژه اضافه كنيد واين گوني هارو توش كپي كنيد
يه ليست كه بايد توش رو پر كنيد از آدرس فايل هاي تصويري و يه دكمه براي شروع ذخيره سازي
كد كلاس ها
كد ماژول
كد دكمه ذخيره سازي:توجه-فقط فرمت هاي بي ام پي وجي پگ رو مي تونيد ذخيره كنيد ضمن اين كه يك كادر عكس مخفي هم به فرم اضافه كنيد
Private sub Command1_Click()
Dim i%, R%
Call ConvertSize(2, Picture1)
With Picture1
R = list1.ListCount - 1
For i = 0 To R
.Picture = LoadPicture(list1.List(i))
Call .PaintPicture(.Picture, 0, 0, .Width, .Height): Set .Picture = .Image
.Refresh: Call SavePicture(.Picture, App.Path + "\Temp\pic" + Str(i) + ".bmp")
Me.Caption = "Converting..." + Mid((Str((i * 10) / Val(R / 10))), 2, 5) + " %"
DoEvents
Next
End With
list1.Clear
For i = 0 To R
list1.AddItem (App.Path + "\Temp\pic" + Str(i) + ".bmp")
Next
Call make_avi(list1)
end sub
اگه درست تايپ نكردم ببخشيد نظر كه يادتون نمي ره
لينك مقاله |11:25 چهارشنبه 9 اسفند1385 - توسط ناصر نيازي
فهمیدن خاصیت بدون تایمر
سلام حتمآ با پست قبلي جيگرتون آتيش گرفت.حق دارين از نظراتون معلومه
تو اين پست برنامه اي ميسازيم كه با جابه جا كردنش موقعيتش روي تيتر برنامه نوشته بشه
اين برنامه بدون هيچ تايمري كار مي كنه و معقيت فرم رو ميگه
يه پروژه خالي(به قول تركا كالاه)ايجاد كنيد ويه ماژول و يه فرم بهش اضافه كنيد
كد مربوط به ماژول
'API Types
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
'API Constants
Const WM_MOVING = 534
Const GWL_WNDPROC = (-4)
'API declarations
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long, ByVal dwnewlong As Long) As Long
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As RECT) As Long
Private Declare Function DefWindowProc Lib "user32.dll" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim OldhWndProc As Long
Private Function OnMove(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, lParam As RECT) As Long
'Handle the OnMove event
If uMsg = WM_MOVING Then
'The form is moving!!
Form1.Caption = "Left: " & lParam.Left & " ,Top: " & lParam.Top
'Insert your code HERE
End If
'Call the old WindowProc
OnMove = CallWindowProc(OldhWndProc, hWnd, uMsg, wParam, lParam)
End Function
Public Sub InstallOnMovingEvent(frm As Form)
'Install the new WindowProc - SubClassing
OldhWndProc = SetWindowLong(frm.hWnd, GWL_WNDPROC, AddressOf OnMove)
End Sub
Public Sub RemoveOnMovingEvent(frm As Form)
'Restore the original WindowProc
SetWindowLong frm.hWnd, GWL_WNDPROC, OldhWndProc
End Sub
روي فرم دابل كليك كنيد هر چي نوشته پاك كنيد اينارو بنويسيد
Private Sub Form_Load()
InstallOnMovingEvent Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
RemoveOnMovingEvent Me
End Sub
حالا برنامه رو اجرا بدين تكونش بدين و صفا كنيد
من تو هرپست باد بگم نظر بدين.خوب نظر بدين ديگه
لينك مقاله |17:30 سه شنبه 8 اسفند1385 - توسط ناصر نيازي
انتباق عکس بر روی هم
سلام حالتون خوبه با روزگار چطورين به كامه يا نه.روحتون كه چروك نشده
اگه چروك شده حتمآ اتوش كنين!!.خوب امروز يه برنامه گرافيكي كوتاه فوق العاده
براتون آماده كردم.با اين برنامه مي تونين دو تا تصوير رو روي هم بندازيد و حركت بدين
البته تصاويرتون بايدJPGباشه و زياد بزرگ نباشه.دستورات زير رو در قسمت عمومي فرم
بنويسيدGeneral
Dim Image1 As IPictureDisp
Dim Image2 As IPictureDisp
Private Type Location
X As Integer
Y As Integer
End Type
Dim Image1Move As Integer
Dim Image2MoveX As Integer
Dim Image2MoveY As Integer
Dim Image1Local As Location
Dim Image2Local As Location
Const Operation = vbSrcAnd
دو تا عكس رو در مسير برنامه كپي كنيد كه فرمت شون جي پگ باشه
اسمشون هم1و2باشه به ترتيب ببخشيد اين ضعف در جمله بندي مال ترك بودنمه
طبيعيه كه شما هم نتونيد به خوبيه من تركي حرف بزنيد
كد زير ماله Form_Loadهست
("Set Image1 = LoadPicture(App.Path & "\Image1.jpg
("Set Image2 = LoadPicture(App.Path & "\Image2.jpg
With me
.Show
Refresh.
.AutoRedraw = True
.ScaleMode = vbPixels
End With
Image1Move = 1
Image2MoveX = 3
Image2MoveY = 3
Do
me.PaintPicture Image1, Image1Local.X, Image1Local.Y
me.PaintPicture Image1, Image1Local.X + me.ScaleWidth, Image1Local.Y
me.PaintPicture Image1, Image1Local.X, Image1Local.Y + me.ScaleHeight
me.PaintPicture Image1, Image1Local.X + me.ScaleWidth, Image1Local.Y + me.ScaleHeight
me.PaintPicture Image2, Image2Local.X, Image2Local.Y, , , , , , , Operation
me.PaintPicture Image2, Image2Local.X + me.ScaleWidth, Image2Local.Y, , , , , , , Operation
me.PaintPicture Image2, Image2Local.X, Image2Local.Y + me.ScaleHeight, , , , , , , Operation
me.PaintPicture Image2, Image2Local.X + me.ScaleWidth, Image2Local.Y + me.ScaleHeight, , , , , , , Operation
With Image1Local
.X = .X - Image1Move
.Y = .Y - Image1Move
If .X < -me.ScaleWidth Then .X = 0
If .Y < -me.ScaleHeight Then .Y = 0
End With
With Image2Local
.X = .X - Image2MoveX
.Y = .Y - Image2MoveY
If .X < -me.ScaleWidth Then .X = 0
If .Y < -me.ScaleHeight Then .Y = 0
If .X + me.ScaleWidth > me.ScaleWidth Then .X = -me.ScaleWidth
If .Y + me.ScaleHeight > me.ScaleHeight Then .Y = -me.ScaleWidth
End With
DoEvents
Loop
خب حالا حالتون چطوره!! براي اينكه دستورات بالا داخل يه
حلقه بي پايان قرار مي گيره بايد در رويداد كليك فرم بنويسيدEnd
فرم رو زياد بزگ نكنيد سعي كنيد تصوير ها هم اندازه باشه وفرم هم اندازه تصوير ها
براي اينكه در حركت عكس ها تنوع ايجاد كنيم در رويدادMouseMoveفرم
دستور زير رو بنويسيد
Image2MoveX = Int(me.ScaleWidth \ 2 - X) \ 10
Image2MoveY = Int(me.ScaleWidth \ 2 - Y) \ 10
اين فتواي نظر ندادن مكروه رو كه شنيدي بجنب نظر بده يالا
لينك مقاله |0:14 شنبه 5 اسفند1385 - توسط ناصر نيازي
سوالات کنکور وی بی 85
همونطور كه قبلآ هم قول داده بودم امروزبراتون سوالات كنكور كامپيوتر سال85 رو آماده كردم
اين سوالات در مقطع كارداني پيوسته سراسري است كه دوم مرداد سال گذشته برگزار شد
از اونجايي كه خود سازمان سنجش اين سوالات رو اينترنتي منتشر نمي كنه پيدا كردنش سخته
علاوه بر اينكه نوشتن فارسي انگليسي سوالات پدرم رو به صورت كامل درآورد مرور خاطره هاي تلخ گذشته نوعي سردرد
عجيب در من ايجاد مي كرد ولي چه كنم كه شايد اگه پارسال منابع بيشتري داشتم الان اين مطالب رو نمي نموشتم وشايد در
موردمخ زني ودختر بازي مي نوشتم ولي يكي بايد اين كار را مي كردم تابقيه (دهاتيا) به سر نوشتم دچار نشوند .مال 84 رو هم دارم اگه خواستين بگين
اگر نمي توانيد بخوانيد از حالت تمام صفحه استفاده كنيد!! بگذريم راستي اين نظر ندادنتون منو كشته
لينك مقاله |0:29 پنجشنبه 3 اسفند1385 - توسط ناصر نيازي
وی بی بازم وی بی
سلام از اونجايي كه تصميم گرفتم پست هام رو با هم بفرستم تا بلكه شما نظر بدين بهش امروز هم دو سه تا پست دارم
يك-مخفي كردن منوي استارت از سري آموزش هاي قبلي
احتياج داريد كه اينگونه تعريف مي شودuser32.dllبراي مخفي كردن منوي استارت به يك تابع از كتابخانه
Option Explicit
Dim hwnd1 As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
ديديد كه تابع درازيه حالا بايددو تا دكمه براي مخفي و آشكار كردن منوي استارت به فرم اضافه كنيد
كد مخفي كردن استارت
Hwnd1=FindWindow("Shell_traywnd","")
call SetWindowPos(Hwnd1,0,0,0,0,0,SWP_HIDEWINDOW)
كد ظاهر كردن استارت
call SetWindowPos(Hwnd1,0,0,0,0,0,SWP_SHOWWINDOW)
خوب صفا كردين-حالا يه نظر بدن تا بعديشو بگم
دو-چطور مي شه آيكون يك برنامه رو از كالبدش كشيد بيرون وبه صورت فايل آيكون ذخيره كرد
اين آموزش از سري آموزشي كتابخانه قدرتمند شل هست كه قبلآ هم يكي دو تا شو گفتم
يك ماژول به پروژه (اوه كيبردم عجب گردو خاكي گرفته!!) اضافه كنيدوكد زير را داخلش كپي كنيد
Public Const MAX_PATH = 260
Public Const SHGFI_DISPLAYNAME = &H200
Public Const SHGFI_EXETYPE = &H2000
Public Const SHGFI_SYSICONINDEX = &H4000 ' System icon index
Public Const SHGFI_LARGEICON = &H0 ' Large icon
Public Const SHGFI_SMALLICON = &H1 ' Small icon
Public Const ILD_TRANSPARENT = &H1 ' Display transparent
Public Const SHGFI_SHELLICONSIZE = &H4
Public Const SHGFI_TYPENAME = &H400
Public Const BASIC_SHGFI_FLAGS = SHGFI_TYPENAME _
Or SHGFI_SHELLICONSIZE Or SHGFI_SYSICONINDEX
Or SHGFI_DISPLAYNAME Or SHGFI_EXETYPE
Public Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" _
(ByVal pszPath As String, _
ByVal dwFileAttributes As Long, _
psfi As SHFILEINFO, _
ByVal cbSizeFileInfo As Long, _
ByVal uFlags As Long) As Long
Public Declare Function ImageList_Draw Lib "comctl32.dll" _
(ByVal himl&, ByVal i&, ByVal hDCDest& _
,ByVal x&, ByVal y&, ByVal flags&) As Long
Public shinfo As SHFILEINFO
'--------------------------
يه دكمه به برنامه اضافه كنيدImageحالا يك تكست بكس وبادوتا
آدرس فايل اجرايي را داخل تكست بكس بنويسيدودر كد كليك دكمه كد
زير را بنويسيد
Dim hImgSmall As Long
Dim FileName As String
Dim r As Long
FileName$ = Text1.Text
hImgSmall& = SHGetFileInfo(FileName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_SMALLICON)
hImgLarge& = SHGetFileInfo(FileName$, 0&, shinfo, Len(shinfo), BASIC_SHGFI_FLAGS Or SHGFI_LARGEICON)
Label1.Caption = Left$(shinfo.szDisplayName, InStr(shinfo.szDisplayName, Chr$(0)) - 1)
Label2.Caption = Left$(shinfo.szTypeName, InStr(shinfo.szTypeName, Chr$(0)) - 1)
image1.Picture = LoadPicture()
image2.Picture = LoadPicture()
r& = ImageList_Draw(hImgSmall&, shinfo.iIcon, image1.hDC, 0, 0, ILD_TRANSPARENT)
r& = ImageList_Draw(hImgLarge&, shinfo.iIcon, image2.hDC, 0, 0, ILD_TRANSPARENT)
نه خداييش بازم نظر نمي دين حالا اينو داشته باشين
سه-چطور مي شه دكمه بستن پنجره در گوشه فرم رو غير فعال كرد
شايد غير فعال كرد دكمه هاي تمام صفحه و كمينه رو بلد باشين ولي
ديگه فرم خاصيت غير فعال كردن دكمه كلوز رو نداره مگه كنترل بوكس فرم رو
برداريم يا اصلآ فرم رو از نوع بدون منوي بالا وتيتر انتخاب كنيم
ولي با اين كد مي تونين با داشتن تمام كنترل ها فقط دكمه كلوز رو غير فعال كنين
تابع زير رو تعريف كنيد
Public Const SC_CLOSE = &HF060
Public Const MF_BYCOMMAND = &H0
Public Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Sub DisableXbutton(ByVal frmHwnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(frmHwnd, 0&)
If hMenu Then
Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
DrawMenuBar (frmHwnd)
End If
End Sub
بنويسيدForm_Loadحالا كد زير رو داخل
DisableXbutton (Me.hwnd)
ببينم بازم نظر نمي دين
لينك مقاله |0:18 چهارشنبه 2 اسفند1385 - توسط ناصر نيازي
ویندوز
اول اين كه گالري رو آپلواد كردم چند تا تصوير خوب براي شما عزيزان
دوم تصميم گرفيم پست هام رو جمع كنم يه جا بفرستم
براي امروز يه تكنيك دارم كه با اون مي تونيد وقتي ديسكانكت هستيد محتواي سايتي كه قبلآ رفتيد
رو ببينيد .
وقتي سايتي ذخيره نمي شه يا شما حوصله ي ذخيره كردنش رو ندارين اين روش خيلي كارا هست
بزنيد كه معولآ در يكيWork OffLineبراي اين كار اينترنت اكسپلورر رو اجرا كنيد از منوي فايل
مانده به آخر منو هاست رو بزيد حالا آدرس سايتتون رو تايپ كنيد و اينتر بزنيد
اگه كوكي هاتون رو پاك نكنيد الان مي تونيد به سايت هايي كه قبلآ رفتيد دسترسي داشته باشيد
فعلآ ياي-نظر بدين
لينك مقاله |0:32 سه شنبه 1 اسفند1385 - توسط ناصر نيازي