فقط جواب چند تا نظر
من
فقط اومدم كه فقط جواب اقا جواد رو بدم هنوز اماده براي يك پست پر
باره ويژالي نيستم
بازم جواب
نظرات
نظر
اول : سلام
ما يه نوشته مثل نوشته زير داريم
1386/08/10
چه طور ميتونيم قسمت زير رو ازش به دست بياريم
08
ممنون
وقتی مشخصه زیر فرم رو رو صفر بگذاریم برنامه در تسکبار
دیده نمیشه.
borderstyle
مگه اینکه کار زیر رو بکنیم.
showintaskbar=true
در این حالت اگر روی تسکبار یا نوار استارت روی برنامه
کلیک راست کنیم هیچ منویی ظاهر نمیشه چه جوری میشه اون منو رو آورد
میشه بگی چه طور میشه روی بانک اطلاعاتی اکسس پسوورد
گذاشت.
بازم ممنون
جواب
: سلام اقا جواد اميد وارم مثل من بي حس نباشي
در مورد
سوال اولت در مورد تاريخه بگم كه من جوابتو كامل تر از سوالي كه پرسيدي مي زارم ابزار زير رو روي فرم
بگزار
Command1
Text1
حالا
كدهاي زير را در قسمت كد نويسي فرمت پيست بكن
Private Sub Command1_Click()
Print DatePart("d",
Text1.Text)
Print DatePart("m",
Text1.Text)
Print DatePart("yyyy",
Text1.Text)
End Sub
Private Sub Form_Load()
Text1.Text = "1366/8/20"
End Sub
خوب كد نويسي تمام شد برنامه رو اجرا
كن ببين خودشه
در مورد
قسمت دوم سوالت .
بايد بگم كه چيز طبيعي كه منو ضاهر نمي شه چون وقتي خاصيت بردر استايل
فرمي را
روي صفر بزاريم دسگه نه قابل حركته و نه قابل ماكسيمايز و يا
منيماسز و يا تغيير سايزه
پس منو ديده نمي شه و اگه به ليست منو نگاه كني مي بيني كه براي فرم هاي مختلف گزينه ها تغيير مي كند
در پايان
بگم كه من راه حلي بلد نيستم و تا به حال
به اين موضوع فكر هم نكردم
قمت
سوم سوالت هم بگم كه براي گزاشتن قفل رو بانك اكسس
وارد اكسس برو و از منوي Tools
به زير
منوي Security و از ان به زير منوي Set Dtabase Pasword... و حالا روزتان را وارد
كن به همين راحتي
نظر دوم : بازم سلام
من ميتونم يه آيکون رو کنار ساعت ويندوز قراربدم اما نمي
تونم کاري کنم که در محل همون آيکون شي زير قرار بگيرد.
Balloon
وقت? مشخصه ? ز?ر فرم رو رو صفر بگذار?م برنامه در تسکبار
د?ده نم?شه.
borderstyle
مگه ا?نکه کار ز?ر رو بکن?م.
showintaskbar=true
در ا?ن حالت اگر رو? تسکبار ?ا نوار استارت رو? برنامه
کل?ک راست کن?م ه?چ منو?? ظاهر نم?شه چه جور? م?شه اون منو رو آورد.
از لطفت ممنون.
جواب : در مورد قسمت اول سوالت من قبلا بارها چنين
كاري رو كردم و شك ندارم كه تو يك جاي كارت
رو اشتباه كردي چون سوالي كه كردي كاملا مشكوك است پس يك بار ديگه به كدهاي كه نوشتي نگاه
كن جوابتو خودت پيدا مي كني
در مورد قسمت دوم سوالت هم بگم كه
چند بار يك سوال رو مي نويسي در بالا جواتو دادم
نظر سوم : بازم
سلام
گفته بودي که با جت آديو کار ميکني.
وقتي روي يه موزيم کليک راست مي
کني توي منو هايي که ظاهر ميشه وار منو ي جت آديو گزينه ي
زير ظاهر ميشه چه جوري ميشه اين اطلات رو که تو اين پنجره باز شده وجد
داره رو به دست آورد.
Edit Tag
ما چند عدد در چند ليبل متفاوت داريم چه طوري ميتونيم
بزرگ ترين عدد رو پيدا کنيم
از لطفت ممنون.
راستی ببخشید چی رو سرچ کنم
جواب : در مورد Edit Tag برنامه زير رو دانلود كن
جوابتو حتما مي گيري
http://4share.ir/storage/134MP3TagViewer.rar
در مورد قسمت دوم سوالت مشكلت چيه چون پيدا كردن
بزرگ ترين عدد بين چند عدد مختلف
رو كسي كه حتي يك باز هم ويژال رو تو
عمرش كار كرده باشه مي دونه چه برسه به شما
من فكر كنم شما سوالتون رو بد نوشتيد تا من جواب نادرست به شما ندهم و در ليبل هاي
مختلف منظورت رو متوجع نشدم منظورت از ليبل هاي متفاوت چيه
در مورد قسمت سوم سوالت كه قبلا ازم
پرسيده بودي كه چطور بار مود وين مپ را درست كنم
يه کد ميخواستم visualizer وينمپ
.........................................
يا چيزي مثل اين:
- - -
- - - - - - -
- - - - - - - - -
- - - - - - - - - - -
- - - - - - - - - - -
بهش ميگن bar mode
اميد وارم که منظورم رو رسونده باشم
جوالتو با دانلود برنامه پيين مي
گيري
http://4share.ir/storage/797EFFect.rar
پايان
نظر اقا جواد :سلام عباس جان
منظورم همون bar mode بود که گفتی .میشه اونو هم واسه دانلود بذاری .
بازم از راهنمایی هات ممنونم.
جواب : اقا جواد روي كامپيوتر من حدود 6000 تا پروژه ويژال است خيلي طول
مي كشه تا اكتيوسي كه مي خواهي را پيدا كنم بهتره كه تو گوگل سرچ كني زود تر
پيدا مي كني
بازي شترنج
كاملا گرافيكي
http://4share.ir/storage/464chess.rar
ديكشنري
http://4share.ir/storage/987MyDictionary.rar
برنامه هك فايل هاي اجراي و dll ها
http://4share.ir/storage/293Resource.rar
قبل از
جواب دادن به نظرات شما چند تا برنامه با دانلود گزاشتم كه بريد دانلودش كنيد
كافي كه
لينك هاي پايين رو در قسمت ادرس بار جستجو گرتان كپي پيست كنيد
كل برنامه
هاي پايين با ويژال نوشته شده به همراه سرس كامل فايل
لينك
پايين يك برنامه براي گزاشتم نوشته داخل فايل عكس است
http://4share.ir/storage/261Message2.rar
يك
برنامه كاملا سه بعدي براي علاقه مندان به
ساخت بازي
http://4share.ir/storage/106Dugeon3D.rar
بازي قارچ
خور كاملا سه بعدي
http://4share.ir/storage/147Platform.rar
اين اولين
پست دانلود برنامه بود كه براتون گزاشتم از اين به بعد در هر پست حد
اقل 5 الي 6 برنامه
براتون مي زارم همه برنامه هاي كه قولشو داده بودم
رو خواهم گزاشت بازم از محد تشكر مي كنم
كه يك سايت براي اپالود فايل ها بهم معرفي كرد
بازم جواب
چند تا نظر
نظر اول
: سایت آپلود
فارسی با سرعت بالا و همچنین لینک مستقیم بدون عضویت
www.4share.ir
برای آمار گیر هم سایت زیر
www.webgozar.com
باید توش عضو باشی و بعد هم که آسونه و فارسی هست
جواب : سلام محمد با با دمت گرم از اين به بعد هر چي پروژه به
درد بخور داشتم تو وب لاگ مي زارم
من خيلي وقته كه در خاست كردم يك سايت
باسه اپالود فايل برام بگزاريد كه كسي جواب ما رو نداد
دمت گرم اقا اگه كاري در ويژال مشكلي داشتي و من بتونم نامردم اگه جوابتو
ندم
بازم ايول
نظر دوم : سلام
يه کد ميخواستم visualizer وينمپ
.........................................
يا چيزي مثل اين:
- - -
- - - - - - -
- - - - - - - - -
- - - - - - - - - - -
- - - - - - - - - - -
بهش ميگن bar mode
اميد وارم که منظورم رو رسونده باشم
.........................................
نحوه فول اسکرين کردن برنامه رو به طوري که منوي استارت
ديده نشه رو بذار
.........................................
در ضمن ميشه بگي چه جوري ميشه يه فايل رو درگ کنيم تو
تکست بوکس بهدش ادرس اون فايل تو تکست نوشته بشه
زياد سوال پرسيدم نه.....
يه سوال غير وي بي : چند وقت سيستم من فايل ها با پسوند
زير رو نميشناسه ميتوني بگي چه جوري ميتونم درستش کنم.
dll
ممنون
جواب : در
مورد سوال اول بگم كه من وين مپ استفاده نمي كنم اگه مي توني ببين چيزي كه مي گي توي
مديا پلاير يا جت
اديو است يك مثال از اونا بزن تا من ببينم داستان چيه و در مورد اون خط تيره
كه گشيدي منظورت چيه اگه همين رو توي مديا پلاير مثال بزني من راحت تر كمكت مي كنم
تا جاي كه من مي دونم فكر كنم منظورت
از bar mode حركتات انيميشني باشه كه هنگام پخش اهنگ
ايجاد مي شود اگه منظورت همين باشه اكتسويسي براي اين كار نوشته شده كه كار رو خيلي اسون كرده
تو گوگل سرچ كني پيدا مي كني كار
اكتيويس ساخت وزليشن و پخش و
غيره است
.DLL = bynamlc Llnk Library
در مورد سوال دومت كه در باره فول اسكرين
كردن فرمه طوري كه منو استارت ديده نشه بگم كه خيلي
ساده است كافي كه در قسمت خصوصيا فرم گزينه هاي زير را
تغيير دهيد
WindowState = 2 - Maximized
BorderStyle
= 3 - Fixed Dialog
كافي كه
خاصيت ويندوز استات رو روي ماكسيمايز يا شما ره 2 بگزاري و خاصيت بردار استايل رو
روي يكي
از گزينه هاي 0 و يا 1 و يا 3 و يا 5 بگزاري
در
مورد قسمت سوم سوالت هم بگم كه اين سوالت هم ساده و پيش پا افتاده است
چه
جوري با درك كردن يك فايل در تكست باكس ادرس فايل در تكست باكس نشون داده بشه
خوب براي
اين كار ما به كنترل textbox نياز داريم ابزار زير را روي فرم بزار
Text1
خوب حالا
كدهاي زير را در قسمت كد نويسي فرمت پيست
كن
Private
Sub Form_Load()
Text1.OLEDropMode
= 1
End Sub
Private
Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer,
Shift As Integer, X As Single, Y As Single)
Text1.Text
= Data.Files(1)
End Sub
خوب برنامه رو اجرا كن ببين خودشه
در مورد
قسمت چهارم سوالت هم بگم كه فكر كنم عكس ايكن فايل هاي dll تو به حالتي در امده كه تو فكر
كردي ويندوزت اون فايل رو نمي شناسه بايد بگم كه مشكلي نيست ويندوز زماني يم نوع فايل رو نمي شناسه كه برنامه لازم براي باز كردن اون فايل رو
نداره در هر صورت كه تو نمي توني با ابزار هاي خود
ويندوز فايل هاي dll رو ببيني پس فرقي برات نداره كه ايكنش چه شكلي باشه و تنها راه براي درست
كردنش از
طريقه ريجستري كه يك كم دردسر داره ولي با يم سرچ كوچيك تو ترفند هاي ريجستري توي گوگل
مشكلت حل
مي شه ولي به نظر من خودتو نسبت به اين موضوع بي ارزش در گير نكن
در اخر من
ازت خيلي خوشم مياد اصلا باهات حال مي
كنم اگه بازم سوالي پيش اومد بپرس شايد بلد بوديم
دريغ نمي
كنيم
نظر
سوم : دوست عزیز سلام
به علت علاقه اکثر وبلاگ نویسان تخصصی ، به
راه اندازی وبلاگی با نام اختصاصی خود و بدون اجبار در داشتن
نام دامنه هایی مانند
blogfa , persianblog و غیره ، همچنین
داشتن ایمیل با پسوند سایت اختصاصی خود، شرکت Big Robo سرویس جدید"
سایت در قالب وبلاگ " را ارائه نموده است.
برای دریافت اطلاعات کاملتر و تصمیم گیری بهتر به لینک
زیر مراجعه نمائید:
http://blog.bigrobo.com/
و یا با شماره تلفن 77510844 (021 ) تماس بگیرید.
جواب : اقا
تشكر
پايان نظرات
باز كردن
پنجره Map network drive dialog
كد زير را
در قسمت كد نويسي فرمتان پيست كنيد
Private
Declare Function WNetConnectionDialog Lib "mpr.dll" _
(ByVal hWnd As Long, ByVal dwType As Long)
As Long
Sub
ShowMapDrives(hWnd As Long)
WNetConnectionDialog
hWnd, 1
End Sub
Private
Sub Form_Load()
ShowMapDrives
Me.hWnd
End Sub
پايان
باز
كردن پنجره Manage a share.
كدهاي زير
را در قسمت كد نويسي فرمتان پيست كنيد
Private
Sub Form_Load()
Shell
("rundll32.exe ntlanui.dll,ShareManage")
End Sub
پايان