محبوبترینها
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1846669083
پنجره showopen و showsave -
واضح آرشیو وب فارسی:سایت ریسک: t=38567">پنجره showopen و showsave hamidahmadi 28 شهريور 1384, 14:16با تشکر از شما متخصصان ویژوال بیسیک سوالی که مغز من را به خود مشغول داشته پنجره فرعی showopen و showsave می باشد میخواهم بدانم چگونه من میتوانم با پنجره فرعی showopen یک متن با پسوند ( rtf) را بازکنم و آن را با پنجره فرعی showsave ذخیره کنم و در آخر مثلا" وقتی متن با پسوند rtf را باز کردم علاوه بر ذخیره بتوانم آن متن را در کپشن یک لیبل نشان دهم. saalek110 28 شهريور 1384, 14:58بايد از كامپوننت ها ابتدا كامون ديالوگ را فعال كنيد. . بعد پنجره هاي ديالوگي را مي توانيد استفاده كنيد. ----------------------------- بعد اينكه ابزار كامون ديالوگ را به جعبه ابزار افزوديد و آن را روي فرم قرار داديد. و مثلا اسم اين ابزار، (( كامون ديلوگ 1)) بود ،، براي داشتن پنجره showopen بنويسيد Private Sub Command 1_Click() CommonDialog1.ShowOpen End Sub . hamidahmadi 28 شهريور 1384, 20:43با تشکر از سالک جان سالک جان خیلی ممنونم از راهنمائیتان ولی مشکل اصلی من باز کردن پنجره showopen یا showsave نبود بلکه مشکل من باز کردن یک متن با پسوند rtf بود و اینکه نمیتوانم آن را ذخیره کنم و مهمتر از آن دوست دارم وقتی یک متن را باز کردم مثلا" در کپشن یک لیبل آن متن را نشان دهم ( من دنبال خصوصیتی از showopen میگردم که پنجره باز شده را نسبت بدهد به کپشن یک لیبل ) و ذخیره کردن آن با همان پسوند rtf در یک فایل. مرسی قبلا" از شما تشکر فراوان میکنم saalek110 28 شهريور 1384, 21:54با سلام. فهميدم چه مي خواهيد. مطالعه مي كنم پاسخ مي دهم. امشب فكر نكنم به جواب برسم. فردا جواب مي دهم البته فردا دوستان متخصص ميايند و جوابش براشون سادس. من در يك rich text box دارم كدشو ولي در ((ليبل)) كار نكردم. سعي مي كنم حلش كنم. با درود فراوان. . hamidahmadi 28 شهريور 1384, 23:14مرسی سالک جان منتظر جوابت میمانم saalek110 30 شهريور 1384, 10:07به نام خدا يك ليبل و يك دكمه به فرم بيافزاييد. سپس كد زير را به پنجره كد بيافزاييد. Private Sub Command 1_Click() Open App.Path & "myFile.txt" For Input As #1 Label1.Caption = Input(LOF(1), #1) Close #1 End Sub پروژه را جايي ذخيره كنيد. يك فايل تكست ، يعني با پسوند txt همانجايي كه پروژه ذخيره شده ، با نام myfile ايجاد كنيد ، در فايل مطالبي تايپ كنيد . ----------- برنامه بالا باعث ميشه محتويات فايل در label ظاهر شود. آيا اين كافيه يا ادامه دهم؟ با تشكر. . hamidahmadi 02 مهر 1384, 19:32سالک جان با عرض سلام دوباره خیلی ممنون عالی بود فقط یک سوال می ماند که اگر ما خواستیم یک فایل تصادفی انتخاب کنیم چه باید کرد ( نه مثل myfile در همانجائی که پروژه را ذخیره کرده ایم ) ضمنا" گفتید که کد برای یک rich text box دارید اگر زحمتی نیست آن را هم برایم بگذارید. و در آخر اگر ممکن است توضیحاتی در مورد پست بالا بدهید قبلا" از لطفتان کمال تشکر را می نمایم saalek110 02 مهر 1384, 21:57سالک جان با عرض سلام دوباره خیلی ممنون عالی بود فقط یک سوال می ماند که اگر ما خواستیم یک فایل تصادفی انتخاب کنیم چه باید کرد ( نه مثل myfile در همانجائی که پروژه را ذخیره کرده ایم ) ضمنا" گفتید که کد برای یک rich text box دارید اگر زحمتی نیست آن را هم برایم بگذارید. و در آخر اگر ممکن است توضیحاتی در مورد پست بالا بدهید قبلا" از لطفتان کمال تشکر را می نمایم سلام. بفرماييد منظور از انتخاب فايل تصادفي يعني چه تا مفصل بحث كنيم. پستهايي كه براي باز كردن فايل در تاپيك آموزش ويژوال بيسيك زدم حتما منظور شما را تامين نكرده ... منظور خود را دقيق تر بيان بفرماييد. راجع به rich text box پروژه هاي زيادي پيدا كرده ام ولي همه يك مشكل دارند. وقتي چيزي را درونشان پيست مي كني ، نمايش داده نمي شود تا چيز جديدي تايپ كني ولي يك سورس مال ميكروسافت پيدا كردم كه اين مشكل را ندارد ولي با تكست باكس كار كرده نه با rich text box همه را برايتان مي فرستم. من به شدت روي اين زمينه از وقتي سئوال كرده ايد كار كردم. يعني در زمينه كار با فايل . و با خيلي پروژه ها كار كردم راجع به پست بالا هم فقط اين كه مي دونم درست كار مي كنه و از سايت آموزشي ويژوال بيسيك است كه در پستهاي اخير در تاپيك ويژوال بيسيك ،، رويداد فوكوس را از روي آن گفتم. منتظر شرح شما هستم. . hamidahmadi 03 مهر 1384, 18:01خیلیی ممنون از توجه اتان به نوشته های من منظور من این است که اگر من بخواهم یک فایل را مثلا" در درایو d یا درایو c و یا هر جای دیگری که بخواهم باز کنم چکار باید بکنم یعنی نمیخواهم بگویم این فایل را که اینجاست با این کد باز کن ( مثل فایل MYFILE که باید در همان پروژه با آن کد باز می شد امیدوارم متوجه منظور من شده باشید خیلی از زحمات شما متشکرم saalek110 03 مهر 1384, 19:21خیلیی ممنون از توجه اتان به نوشته های من منظور من این است که اگر من بخواهم یک فایل را مثلا" در درایو d یا درایو c و یا هر جای دیگری که بخواهم باز کنم چکار باید بکنم یعنی نمیخواهم بگویم این فایل را که اینجاست با این کد باز کن ( مثل فایل MYFILE که باید در همان پروژه با آن کد باز می شد امیدوارم متوجه منظور من شده باشید خیلی از زحمات شما متشکرم سلام. با عرض خسته نباشيد. منظور من چيز ديگه اي بود. واضح تر بگويم: آيا انتخاب فايل را شما به عهده مي گيريد يا كاربر؟ فكر كنم منظور شما اولي باشه.چون حالت دوم را كه در تاپيك آموزش ويژوال بيسيك داريم. براي حالت اول آدرس را بايد بسازيد. خودتان كمي كار كنيد ، من هم كار مي كنم. بعد تبادل نظر مي كنيم. با & و " ..." درود. ===================== در صورتي كه شما هم بخواهيد تعيين فايل را به عهده بگيريد باز 2 حالت داره. يكي اينكه ترتيب فايلها از قبل مشخصه ، مثلا از فايلي با نام 1 تا 10 ، كه ساده است و آدرس كامل بنويسيد C:my doc1.txt تا آخري. البته روش نوشتن آدرس را من چك نكردم. الان درگيرم . خودتان زحمت بكشيد. حالت دوم زماني كه ترتيب فايلها مشخص نيست و بايست برنامه هوشمند عمل كنه. براي اين كار آدرس را تكه تكه مي كنيد. با & و " " نمي دانم منظور شما را درست فهميدم و درست جواب دادم يا نه. منتظر پاسخ هستم. موفق باشيد. hamidahmadi 03 مهر 1384, 22:07منظور من حالت دوم زمانی که ترتیب فایلها مشخص نیست می باشد . مثل خود ویندور میخواهم هر جا فایلی را دیدم باز کنم saalek110 03 مهر 1384, 23:14منظور من حالت دوم زمانی که ترتیب فایلها مشخص نیست می باشد . مثل خود ویندور میخواهم هر جا فایلی را دیدم باز کنم بازم دو حالت داره. اول اينكه ميخواهيد يك برنامه سرچ فايل بسازيد. دوم اينكه با روش خاصي كه پروژه اتان داره فايلهايي را در پوشه هايي پيدا كنيد. هر دو حالت قبلا كار شده. و پروژه هاي مثال موجود است. دقيق بگيد چي مي خواهيد. . hamidahmadi 09 مهر 1384, 18:50سالک جان به این کد توجه کن : Private Sub c1_Click() Dim strKhat As String Dim intAzad As Integer On Error GoTo khata intAzad = FreeFile cd 1.Flags = &H200 cd 1.Filter = "Text (*.txt) | *.txt | Bath File (*.bat) | *.bat" cd 1.FilterIndex = 1 cd 1.ShowOpen Open cd 1.FileName For Input As #intAzad Line Input #intAzad, strKhat lst1.AddItem strKhat Do Until (EOF(1)) Line Input #intAzad, strKhat lst1.AddItem strKhat Loop Close khata: End Sub حالا با این کد میتوان در یک جعبه لیست یک فایل تکست را نشان داد. حال برای save کردن چه کار باید کرد؟ البته این را بگویم که این فایل ترتیبی است در یک فایل مستقیم چگونه یک فایل را باز کنم و یا یک فایل را save کنم. ممنون میشوم اگر این حالات را توضیح دهی saalek110 15 مهر 1384, 17:10 به اين تاپيك يك نگاهي بكنيد. ببينيد مي تونيد مشكل را با روشهاي خود حل كنيد. . با تشكر. راستش شما در اين زمينه مهارتتون بيشتر از من است. . hamidahmadi 16 مهر 1384, 19:10مرسی سالک جان من مدیون شما هستم به خاطر زحماتتان در آن 20 صفحه مواد لازم یک فرم به نام Form1 سه دکمه به نامهای cmdOpen , cmdSave , cmdClear یک دیالوگ باکس به نام cd 1 یک RitchTextBox به نام RTB 1 کد آن Private Sub cmdClear_Click() RTB 1.Text = "" End Sub Private Sub cmdOpen_Click() Dim strOpen As String With cd 1 .Flags = &H2000 .DialogTitle = "Open" .Filter = "Ritch Text Box(.rtf)|*.rtf" .ShowOpen strOpen = .FileName End With Form1.RTB 1.LoadFile strOpen End Sub Private Sub cmdSave_Click() Dim strSave As String With cd 1 .Flags = &H2000 .DialogTitle = "Save" .Filter = "Ritch Text File (*.rtf)|*.rtf" .ShowSave strSave = .FileName End With Form1.RTB 1.SaveFile strSave End Sub hamidahmadi 16 مهر 1384, 20:06سالک جان لطفا" طرز قرار دادن کدها به شکلی که آقا نوید ، آقا میخک و شما که جدیدا" استفاده میکنید به من هم یاد بدهید تا بتوانم من هم کدها را صحیح در این فورم بگذارم ( آنجور که به صورت تورفتگی و کمی پررنگتر میشود ) تا بتوانم من هم کمی به شما در تاپيك آموزش ويژوال بيسيك کمک کنم ضمنا" پست شماره 17 را با توضیحاتی که شما در رابطه با with و ... خواسته اید به شکل صحیحی در تاپيك آموزش ويژوال بيسيك بگذارم saalek110 16 مهر 1384, 20:49 abcd xyz 1234 large ----------------------------------- مديريت محترم.... پستي كه آقاي احمدي در تاپيك آموزش ويژوال بيسيك زده اند را ببينيد.. كد ايشان كنارش ((اسكرول بار)) داره.... برام سئواله كه داشتن يا نداشتن اسكرول بار تحت كنترل ماست يا خير. ممنون از شما. . سلام نويد جان. تمامي 4 يا 5 پاسخي كه امروز در تاپيكها مختلف داده بوديد را خواندم. از بابت همه ممنون. راهنمايي هاي ارزنده اي بود. . MnavidM 19 مهر 1384, 08:04مديريت محترم.... پستي كه آقاي احمدي در تاپيك آموزش ويژوال بيسيك زده اند را ببينيد.. كد ايشان كنارش ((اسكرول بار)) داره.... برام سئواله كه داشتن يا نداشتن اسكرول بار تحت كنترل ماست يا خير. ممنون از شما. . سلام. نخیر به دست ما نیست. اگر طول کد زیاد باشه خود به خود یکی Scroll به اون اضافه میشه . اینجا () رو ببینید. در مورد کد ها توضیح داده. موفق باشی. نوید. MnavidM 19 مهر 1384, 08:24سلام نويد جان. تمامي 4 يا 5 پاسخي كه امروز در تاپيكها مختلف داده بوديد را خواندم. از بابت همه ممنون. راهنمايي هاي ارزنده اي بود. . سلام. قابل شما رو نداره. موفق باشی. نوید. ssyz 29 بهمن 1386, 12:19سلام دوستان اگه میشه منو راهنمایی کنید اول من یک فرم دارم که داخل این فرم اشیای زیر موجود است: 1- یک text Box و یک منوی Save و open من میخواستم بدون باید چه دستوری بنویسیم که وقتی متن در text box مینویسم و ذخیره می کنیم بتونیم دوباره فیل ذخیره شده رو ببینیم مثلا با پسوند txt و doc و بتونیم این فایل رو با برنامه های که این پسوند رو ساپورت میکنند اجرا کنیم. مثلا Notepad متشکرم... the_king 29 بهمن 1386, 14:04دستورات خواندن و نوشتن یک فایل متنی با ساختار ANSI ساده است : برای نوشتن متن داخل Text1 در درون فایل C:File.txt این کد را می نویسیم : Open "C:File.txt" For Output As #1 Print #1, Text1.Text Close #1 برای خواندن محتویات فایل C:File.txt به درون Text1 این کد را می نویسیم : Dim FileText As String Open "C:File.txt" For Binary As #1 FileText = Space(LOF(1)) Get #1, 1, FileText Text1.Text = FileText Close #1 البته فراموش نکنید که مشخصه Multiline مربوط به Text1 را True نمایید تا بتواند بیش از یک سطر را نمایش دهد. اما من ایندو روتین ساده را پیشنهاد نمی کنم، چون آنها نمی توانند متنهایی که Unicode هستند را به درستی بخوانند و بنویسند. متنهای Unicode برای هر کاراکتر از دو بایت حافظه استفاده می کنند و می توانند چندین زبان مختلف را در کنار هم ذخیره کنند. خود نوع داده String ویژوال بیسیک در حقیقت دارای ساختار Unicode است ولی رابطهای استاندارد ورودی و خروجی آن نظر CommandButton و Label و TextBox و روتین های کار با فایل بصورت ANSI طراحی شده اند و متن های Unicode را پس از تبدیل بکار می برند. پس بهتر است که به جای آن دو روتین استاندارد ذکر شده از این جفت کد زیر استفاده کنیم : برای نوشتن در یک فایل از این روتین استفاده شود. Private Sub SaveFile(ByVal Path As String, ByVal Text As String, Optional ByVal Unicode As Boolean) Dim Buffer() As Byte Dim IDCode As Integer On Error Resume Next Open Path For Output As #1 Close #1 Open Path For Binary As #1 If Len(Text) > 0 Then If Unicode Then IDCode = &HFEFF Buffer = Text Put #1, 1, IDCode Put #1, 3, Buffer Else Buffer = StrConv(Text, vbFromUnicode) Put #1, 1, Buffer End If End If Close #1 End Sub پارامتر اول نام فایلی است که قرار است در آن متنی نوشته شود، پارامتر دوم متنی است که قرار است نوشته شود و پارامتر سوم تعیین می کند که متن بصورت ANSI ذخیره شود و یا Unicode. اگر True باشد بصورت Unicode ذخیره خواهد شد. مثلا : SaveFile "C:File.txt", Text1.Text, True برای خواندن محتویات یک فایل متنی از این تابع استفاده شود (هر دو سیستم ANSI و Unicode) تابع متن فایل را به عنوان مقدار بازگشتی بر می گرداند. Private Function ReadFile(ByVal Path As String) As String Dim Buffer() As Byte Dim IDCode As Integer On Error Resume Next Open Path For Binary As #1 If LOF(1) > 0 Then Get #1, 1, IDCode If IDCode = &HFEFF Then If LOF(1) > 2 Then ReDim Buffer(0 To LOF(1) - 3) As Byte Get #1, 3, Buffer ReadFile = Buffer Else ReadFile = "" End If Else ReDim Buffer(0 To LOF(1) - 1) As Byte Get #1, 1, Buffer ReadFile = StrConv(Buffer, vbUnicode) End If Else ReadFile = "" End If Close #1 End Function مثلا : Text1.Text = OpenFile ("C:File.txt") ایندو روتین خطا های دسترسی به فایل را نادیده می گیرند و پیغامی ایجاد نمی کنند. من بر اساس این دو تابع یک برنامه کامل نوشته ام که می تواند همانند NotePad فایلی را بخواند یا بنویسد. یک کلاس Browse در این برنامه بکار رفته که برای انتخاب نام فایل ورودی و خروجی بکار می رود. این کلاس ما را از بکارگیری کنترل ActiveX ای به نام Microsoft Common Dialog Control بی نیاز می سازد. کد کامل برنامه به همراه فایل اجرایی EXE ضمیمه این پست می باشد. i_lover3000 30 بهمن 1386, 00:11سلام فکر کنم با این برنامه که گذاشتم کارت راه بیافته :D موفق باشید ... :sad: salehfard 11 اسفند 1386, 10:41سلام من با vb 6 کار می کنم ، یک منو شامل فایل که فایل شامل زیرمنو بنام ppt و pdf تشکیل شده است. می خواهم زمانی که روی ppt می روم فایلی در کامپیوترم می باشد باز شودمن این کار را با commondialog انجام دادم ولی وقتی دکمه open رامی زنم فایل را باز نمی کند.ممنون می شم مرا راهنمایی کنید. the_king 11 اسفند 1386, 18:26سلام من با vb 6 کار می کنم ، یک منو شامل فایل که فایل شامل زیرمنو بنام ppt و pdf تشکیل شده است. می خواهم زمانی که روی ppt می روم فایلی در کامپیوترم می باشد باز شودمن این کار را با commondialog انجام دادم ولی وقتی دکمه open رامی زنم فایل را باز نمی کند.ممنون می شم مرا راهنمایی کنید. اشتباه متوجه شده اید، CommonDialog اصلا توانایی باز کردن فایلی را ندارد، فقط مسیر فایلی که کاربر می خواهد باز شود را به برنامه شما اعلام می کند. در واقع از زمانی که کاربر روی دکمه "Open" کلیک کرد، مسیر آن فایل را برمی گرداند و از آن به بعد دیگر هیچ نقشی در عملیات باز کردن فایل ندارد. این خود برنامه نویس است که برای باز کردن فایل باید کد بنویسد. از ShowOpen زمانی استفاده می شود که مسیر فایل از قبل مشخص و ثابت نیست و کاربر به دلخواه خود مسیر آنرا انتخاب می کند. شما می خواهید که یک فایل ppt باز شود؟ پس لابد Microsoft PowerPoint در سیستم شما نصب است وگرنه باز کردن این فایل از عهده ویژوال بیسیک بر نمی آید. برای اینکار نمی توانید از تابع Shell خود ویژوال بیسیک استفاده کنید چون فقط برای فایلهای اجرایی طراحی شده است. برای نمایش صحیح فایل ppt از این تابع API می توانید استفاده کنید به نام ShellExecuteA : Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long مثلا اگر مسیر فایل شما در متغیر Path قرار دارد ، این کد فایل را در حالت Show نمایش می دهد : ShellExecute Me.hWnd, "Show", Path, vbNullString, vbNullString, 1 اگر می خواهید فایل مورد نظر در محیط پاورپوینت در حالت ویرایشی باز شود از حالت Open استفاده می کنیم : ShellExecute Me.hWnd, "Open", Path, vbNullString, vbNullString, 1 salehfard 12 اسفند 1386, 13:43سلام the_king من این کد را در کدام قسمت وارد کنم ، منظور شما این بودکه commondialog را حذف کنم؟ مسیر کامل را چگونه بدم که با دکمه برروی منو آن صفحه باز شود؟ همین کد را در پنجره کد نوشتم خطا می داد. ببخشید من حرفه ای نیستم اگه می شه بیشتر توضیح دهید. از راهنمایتون ممنونم. the_king 12 اسفند 1386, 20:53بهترین کاری که می توانم انجام بدم ضمیمه کردن یک برنامه کوچیک است که دارای یک منوی File با دو آیتم Open و Show باشد. Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private pptPath As String Private Sub MnuOpen_Click() OpenFile "open" End Sub Private Sub MnuShow_Click() OpenFile "show" End Sub Private Sub OpenFile(ByVal Operation As String) Dim Browse As New Browse Dim Path As String With Browse .AllowMultiSelect = False .DefaultExt = "ppt" .Filter = "Microsoft PowerPoint (*.ppt)|*.ppt|All Files (*.*)|*.*|" .hWnd = Me.hWnd .InitFileName = pptPath .Title = "Open" Path = .ShowOpen End With If Len(Path) > 0 Then pptPath = Path ShellExecute Me.hWnd, Operation, Path, vbNullString, vbNullString, 1 End If End Sub شما برای انتخاب مسیر فایل یا باید از CommonDialog استفاده کنید و یا از کلاس Browse که من ساخته ام. کد برنامه به همراه این کلاس Browse و فایل اجرایی exe ضمیمه این پست می باشد. salehfard 13 اسفند 1386, 11:49من واقعا ازتون ممنونم اگر بخوام بدون کلاس browse ایجاد کنم باید از common dialog استفاده کنم. یعنی قسمت فیلتر کد زیر را وارد کنم. Private Sub mnufileppt_Click() CommonDialog1.Filter = "Powerpoint (*.ppt) | *.ppt" CommonDialog1.InitDir = "D:ccd" CommonDialog1.ShowOpen End Sub خیلی زحمت کشیدید.:wink: salehfard 14 اسفند 1386, 07:48سلام the _king از کمک شما متشکرم می خواستم ببینم چگونه مامی توانیم زمانی که دکمه open را می زنم دقیقا همان صفحه که می خواهم باز شود و کاربر اجازه نداشته باشد به صفحه های دیگر یا فولدر های دیگر من دسترسی داشته باشد. آیا من می توانم یک فرم دیگر باز کنم و بازدن دکمهopen آن فرم باز شود که صفحه باز شده من در آن باشد؟ یا جور دیگه ... من نمی دونم آدرس کامل را کجا بدم که فقط آن صفحه باز شود. از کمکتون ممنونم. salmanrayaneh 14 خرداد 1387, 15:35در مورد خاصیت های آبجکت Common Dialog در پنجره ئ Component را کاملاً توضیح بده saalek110 14 خرداد 1387, 17:16CommonDialog Control for Visual Basic 6.0 Users (VS.80).aspx mehran7 17 تير 1387, 09:00من یه سوال درباره ی Showopen داشتم، وقتی که مقدار فلگ رو&H200 برای انتخاب چند فایل قرار می دم، می تونم چند فایل انتخاب کنم، ولی با دو مشکل: 1. پنجره Showopen مثل windows 98 می شه. Picture: 2. اسامی فایل های انتخاب شده رو سر هم می نویسه. اگه کمکم کنید ممنون میشم. the_king 18 تير 1387, 02:04از BIF_NEWDIALOGSTYLE برای استایل جدید استفاده کنید (کد H40& ) خروجی تابع در بین مسیر فایل های متفاوت از کد اسکی 0 یعنی vbNullChar استفاده می کنه. بایستی با Split جداشون کنید.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1103]
-
گوناگون
پربازدیدترینها