http://www.webchin.org/Meko مه‌كۆكانی وێبچن en http://backend.userland.com/rss http://www.webchin.org/Meko/peyami-jimare/27327.html#p27327 27327@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: هه‌ربژی كاك ئاراس به‌ڕاستی مامۆستای به‌رنامه‌یت،بژیت Thu, 28 Feb 2008 14:53:58 +0100 http://www.webchin.org/Meko/peyami-jimare/27169.html#p27169 27169@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: یه‌ك دێڕم زیاد كرد بۆ كۆده‌كه‌ی نوسیووته‌:له‌سه‌ره‌وه‌ باسی گۆڕانكارییمان كرد له RichTextBox1 دا، كه‌ ده‌توانیت پرسیاری لێبكه‌یت:If RichTextBox1.DataChanged = True Thenیان گه‌ر هیچت نه‌نووسیوه‌. بزانه‌ RichTextBox1  به‌تاڵه‌:If RichTextBox1.Text = "" thenگه‌ر به‌تاڵ بوو پێویست به‌ پرس كردن ناكات. :Private Sub mnenew_Click() Dim m As String Dim t As String Dim buttonandicon As Long Dim y m = "ئه‌گه‌ر پاشه‌كه‌زتي ده‌كه‌يت كرته‌ بكه‌ له‌سه‌ر yes" t = "پاشه‌كه‌وكردن" buttonandicon = vbYesNo + vbInformation If RichTextBox1.DataChanged = True Then y = MsgBox(m, buttonandicon, t) If y = vbYes Then CommonDialog1.Filter = "rtffile(*.rtf)|*.rtf" CommonDialog1.ShowSave RichTextBox1.SaveFile CommonDialog1.FileName, rtfRTF Else If y = vbNo Then RichTextBox1 = " " End If End If End If End Sub Mon, 25 Feb 2008 15:57:39 +0100 http://www.webchin.org/Meko/peyami-jimare/26959.html#p26959 26959@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: كاك ئاراس به‌م شێوه‌یه‌ ئه‌م كاره‌م كردبۆ New :Private Sub mnenew_Click() Dim m As String Dim t As String Dim buttonandicon As Long Dim y m = "ئه‌گه‌ر پاشه‌كه‌زتي ده‌كه‌يت كرته‌ بكه‌ له‌سه‌ر yes" t = "پاشه‌كه‌وكردن" buttonandicon = vbYesNo + vbInformation y = MsgBox(m, buttonandicon, t) If y = vbYes Then CommonDialog1.Filter = "rtffile(*.rtf)|*.rtf" CommonDialog1.ShowSave RichTextBox1.SaveFile CommonDialog1.FileName, rtfRTF Else If y = vbNo Then RichTextBox1 = " " End If End If End Sub هه‌ڵه‌ێك هه‌یه‌ ئه‌ویش ئه‌وه‌یه‌ ئه‌گه‌ر من هیچ نه‌نوسم كه كرته‌م كرد له‌سه‌ر new  هه‌ر ئه‌و megbox دێت، Sat, 23 Feb 2008 07:19:06 +0100 http://www.webchin.org/Meko/peyami-jimare/26905.html#p26905 26905@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: ده‌ستخۆش  هه‌ربژی كاك ئاراس گیان Fri, 22 Feb 2008 12:43:58 +0100 http://www.webchin.org/Meko/peyami-jimare/26840.html#p26840 26840@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: سڵاو.وه‌كوو وتم ڤیژواڵ به‌یسكی ٦.٠ ـم لا نییه‌. كۆده‌كه‌م به‌ دۆت نێت نووسیوه‌، بێگومان گۆرانكاریی ئه‌وتۆت ناوێت له‌په‌یكه‌ری داڕشتنه‌كه‌دا، ته‌نها له‌ ناوه‌كان و هه‌ندێك پارامیته‌ر...كۆدی دووگمه‌ی نوێ New :Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Click If RichTextBox1.Modified = True Then Dim Answer As Integer Answer = MessageBox.Show("ده‌ته‌وێت گۆڕانكارییه‌كان پاشه‌كه‌وت بكه‌یت ؟", "ئاگاداركردنه‌وه‌", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading, False) If Answer = Windows.Forms.DialogResult.Yes Then 'lere pashekewt dekeyn ! SaveTextToFile() ElseIf Answer = Windows.Forms.DialogResult.No Then ' new InitRichTextBox() ElseIf Answer = Windows.Forms.DialogResult.Cancel Then 'do nothing End If Else InitRichTextBox() End If End Sub گه‌ر گۆڕانكارییت كردبیت ده‌بێت ئه‌م په‌نجه‌ره‌یه‌ بكرێته‌وه‌:كۆدی پاشه‌كه‌وت كردنیش كه‌ له‌ New بانگهێشت ده‌كریت، گه‌ر هاتوو به‌كارهێنه‌ر وتی ده‌مه‌وێت پاشه‌كه‌وت بكه‌م: : Private Sub SaveTextToFile() Dim Result As DialogResult SaveFileDialog1.Title = "Amanj-Editor" SaveFileDialog1.FileName = "amanj1.txt" SaveFileDialog1.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*" Result = SaveFileDialog1.ShowDialog() If Result = Windows.Forms.DialogResult.OK Then RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.UnicodePlainText) End If End Sub ده‌بێت ئه‌م دیالۆگه‌ بكرێته‌وه‌:كۆدی ئاماده‌كردنی RichTextBox : :Private Sub InitRichTextBox() RichTextBox1.Modified = False RichTextBox1.Text = "" End Sub كاتێك InitRichTextBox بانگهێشت ده‌كرێت كه‌ ڕووكارێكی نوێ بكرێته‌وه‌.. گه‌ر وه‌شانی شه‌شم ده‌ست كه‌وت له‌ فرسه‌تێكدا بۆت ده‌نووسم. Thu, 21 Feb 2008 14:28:21 +0100 http://www.webchin.org/Meko/peyami-jimare/26824.html#p26824 26824@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: كاك گه‌نجۆ ئه‌وه‌ی تۆم تاقی كردوه‌ ئه‌وه‌ی من مه‌به‌ستمه‌ ئه‌و كاره‌ی نه‌كرد له‌به‌ر ئه‌وه‌ی ئه‌وه‌ی تۆ هه‌موو جارێك كرته‌ بكه‌یت له‌سه‌ر new لاپه‌ڕێكی تر ده‌كرێته‌وه‌ كاك ئاراس گیان ئه‌وه‌ی تۆیش تاقی ده‌كه‌مه‌وه‌،ئایا ئه‌توانیت msgbox دروست بكه‌یت له‌ ناو new ئه‌گه‌ر كرته‌ت كرد له‌سه‌ر yes ئه‌وه په‌نجه‌ری save بكرێته‌وه‌ وه‌ ئه‌گه‌ر no ئه‌وه‌ ئه‌م كۆده‌ بنوسرێت :Richtextbox.text=" " بژین Thu, 21 Feb 2008 12:14:21 +0100 http://www.webchin.org/Meko/peyami-jimare/26749.html#p26749 26749@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: من وام داناوه‌ له‌ كۆده‌كه‌ی سه‌ره‌وه‌ كه‌ دوو دووگمه‌ هه‌بن به‌ناوی New, Save به‌كار هێنانی هه‌ردوو دوگمه‌ی New, Save  گرفتی وه‌كارنه‌كه‌وتنی Enabled   چاره‌سه‌ر ده‌كات.هۆی دروست بونی ئه‌م پرسياره‌م ته‌نيا( . ) بوو كه‌ به‌كار هاتبوو له‌ نێوان :New.Enabled = True Save.Enabled = True New.Enabled = False Save.Enabled = False Wed, 20 Feb 2008 15:30:36 +0100 http://www.webchin.org/Meko/peyami-jimare/26722.html#p26722 26722@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: @گه‌نجۆ: راسته‌ منیش نوسیومه‌ كه‌ SaveToFile ده‌بێت خۆت بینوسیت. له‌م پرسیاره‌ باش حاڵێ نابم: ئايه‌ كه‌ . به‌كار هاتوه‌ له‌ پێش New له‌نێو داڕشتنی گشتی پشت به‌ چی به‌ستراوه‌ بۆ ئه‌وه‌ی دوای .Enabled  كار بكات من وام داناوه‌ له‌ كۆده‌كه‌ی سه‌ره‌وه‌ كه‌ دوو دووگمه‌ هه‌بن به‌ناوی New, Save Enabled  تایبه‌تمه‌ندیی دووگمه‌ button و زۆر له‌ ته‌نه‌كانی objects تره‌، واته‌ چالاك بكرێت یان ناچالاك له‌ڕێگه‌ی ئه‌م تایبه‌تمه‌ندییه‌وه‌ ده‌بێت. Wed, 20 Feb 2008 11:47:03 +0100 http://www.webchin.org/Meko/peyami-jimare/26682.html#p26682 26682@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: aras له‌ كاتی داخستندا پرسیارت لێده‌كات پاشه‌كه‌وتی ده‌كه‌یت یان نه‌.واته‌: new بنووسه‌ وێبچن، پاشان دایبخه‌. ده‌بینیت پرس ده‌كات. ده‌توانرێت له‌كاتی داڕشتنی ئه‌و كورته‌ نامه‌يه‌ سود له‌ دارشتنه‌ش وه‌ر بگيرێت :Private Sub Form_Unload(Cancel As Integer) slct = MsgBox("nawaroki nama", vbYesNo, "naw nishani nana") If slct = vbYes Then 'code pashakawt krdn lira bnwsa ElseIf slct = vbNo Then 'code drachwn lira bnwsa nmwa " end" End If End Sub 1من ئه‌وداڕشتنه‌م به‌كار هێنا له‌ vb.6ئه‌و داڕشتنه‌ به‌ ته‌رك كردنی SaveToFile كاری كرد به‌م شێوه‌ی خواره‌وه‌ وه‌ توانرا به‌ پاڵپشتیRichtx32.ocx كاری نه‌و براو كه‌ نوێ كردنه‌وه‌ی سندوقی ده‌قه‌  ئه‌نجام بدرێت :Private Sub Command1_Click() If RichTextBox1.DataChanged = True Then SaveToFile Form1.Caption = "Amanj - Untitled" RichTextBox1.Text = "" RichTextBox1.DataChanged = False Else Form1.Caption = "Amanj - Untitled" RichTextBox1.Text = "" End If End Sub 2داڕشتنی دووه‌م  به‌م شێوه‌يه‌ :Private Sub RichTextBox1_SelChange() If RichTextBox1.DataChanged = True Then Form1.Caption = "Amanj - Untitled" End If Dim a As Boolean a = ((RichTextBox1.SelLength) > 1) If a = True Then Form1.Caption = "Untitled" New.Enabled = True Save.Enabled = True Else New.Enabled = False Save.Enabled = False End If End Sub داڕشتنی دووه‌م له‌ vb.6 له‌چوار رسته‌ كۆدی ڕه‌نگ سور خۆی ديته‌وه‌ له‌به‌ری ئه‌وه‌ی له‌رسته‌كانی كۆتايی پشت به‌ستراوه‌ به‌ هێمای لكێنه‌ر وه‌ تا .نمونه‌New.Enabled = TrueSave.Enabled = TrueNew.Enabled = FalseSave.Enabled = Falseئايه‌ كه‌ . به‌كار هاتوه‌ له‌ پێش New له‌نێو داڕشتنی گشتی پشت به‌ چی به‌ستراوه‌ بۆ ئه‌وه‌ی دوای .Enabled  كار بكات Tue, 19 Feb 2008 20:09:50 +0100 http://www.webchin.org/Meko/peyami-jimare/26662.html#p26662 26662@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: @گه‌نجۆ: كه‌ دۆكیومێنتی نوێ ده‌كه‌یته‌وه‌ له‌ ۆرد دا دانه‌یه‌كی نوێ ده‌كاته‌وه‌، پیویست به‌ پرسیار ناكات. به‌ڵام گه‌ر ئه‌وه‌ی كه‌ له‌به‌رده‌ستایه‌ و كاری تیاده‌كه‌یت گۆڕانكاری تیا بكه‌یت ، له‌ كاتی داخستندا پرسیارت لێده‌كات پاشه‌كه‌وتی ده‌كه‌یت یان نه‌.واته‌: new بنووسه‌ وێبچن، پاشان دایبخه‌. ده‌بینیت پرس ده‌كات.@ئامانج:  تۆ كام جۆره‌ت داڕشتوه‌ له‌وه‌ی كه‌ له‌سه‌ره‌وه‌ باسم كرد: SDI, MDI  ؟!میكانیزمی كاركردنهه‌موو كرداره‌كانی ناو ئۆفیس (بۆ نموونه‌)، په‌یوه‌ست كراون به‌ ڕووداوه‌كانه‌وه‌ events ، كاتێك گۆڕانكاریی له‌ دۆكیومێنته‌ كراوه‌‌كه‌دا ده‌كه‌یت، ده‌بینیت له‌سه‌ره‌وه‌ هێمای پاشه‌كه‌وت كردن -دیسكه‌كه‌- چالاك ده‌بێت. كه‌ پاشه‌كه‌وتیشی ده‌كه‌یت ناچالاك ده‌بیته‌وه‌.RichTextBoxیش خۆی تایبه‌تمه‌ندیی هه‌یه‌ (له‌ وه‌شانی دۆت نێتدا)ده‌توانیت پرسیاری لیبكه‌یت:گه‌ر   RichTextBox.Update  نرخه‌كه‌ی هه‌ڵه‌ false بوو ئه‌وا گۆڕانكاریی ڕوینه‌داوه‌، ده‌توانیت په‌ڕگه‌كه‌ دابخه‌یت و پرس نه‌كه‌یت. ئه‌گه‌ر نا واته‌ true بوو، مانای وایه‌ گۆڕانكاریی تیا كراوه‌ و پێویسته‌ پرس له‌ پاشه‌كه‌وت كردنی بكه‌یت.له‌ وه‌شانی شه‌شدا:  RichTextBox.DataChanged من ڤیژواڵ به‌یسكی ٦.٠ ـم لا نییه‌ تاكوو نموونه‌یه‌كی ته‌واوت بۆ درست بكه‌م. به‌س هه‌ندێك كۆد ده‌نووسم، گه‌ر هه‌ڵه‌ی تیابوو راستی بكه‌ره‌وه‌:بۆ SDI كرته‌ له‌ دووگمه‌ی نوێ  كرا: :Private Sub New_Click() If RichTextBox1.DataChanged = True Then SaveToFile Form1.Caption = "Amanj - Untitled" RichTextBox1.Text = "" RichTextBox1.DataChanged = False Else Form1.Caption = "Amanj - Untitled" RichTextBox1.Text = "" End If End Sub SaveToFile نه‌خشه‌یه‌كه‌ بینووسه‌ بۆ پاشه‌كه‌وت كردن.تاكوو بزانیت گۆڕانكاریی كراوه‌: :Private Sub RichTextBox1_SelChange() If RichTextBox1.DataChanged = True Then Form1.Caption = "Amanj - Untitled" End If Dim a As Boolean a = ((RichTextBox1.SelLength) > 1) If a = True Then Form1.Caption = "Untitled" New.Enabled = True Save.Enabled = True Else New.Enabled = False Save.Enabled = False End If End Sub Tue, 19 Feb 2008 17:04:46 +0100 http://www.webchin.org/Meko/peyami-jimare/26655.html#p26655 26655@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: كاكه‌ ئامانج (Microsoft Office Word 2003) من به‌كارم هينا به‌و شێوه‌ی تۆ ده‌ت ويست  نمونه‌ نوسيم webchin له‌ناو په‌ڕه‌يه‌كی به‌تاڵ پاشان كرته‌م كرده‌وه‌ له‌سه‌ر New &Blank Document دوای كرته‌ كردن داوای پاشه‌كه‌وتی نه‌كرد كه‌ چه‌ند وشه‌يه‌كشم له‌ناو نوسيبوو  به‌ڵكو New Blank Document نوێ دروست بوو ؟؟؟؟ كه‌ بون به‌ دوان Tue, 19 Feb 2008 15:33:12 +0100 http://www.webchin.org/Meko/peyami-jimare/26652.html#p26652 26652@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: باسی ڤیژوال به‌یسكی شه‌ش ده‌كه‌م،من ده‌مه‌وێت وه‌ك وۆرد بێت بۆ نموونه‌ من له‌ ناو به‌رنامه‌ی وۆرد ده‌نوسم وێبچن دوای ئه‌وه‌ كرته‌ ده‌كه‌م له‌سه‌ر New پێت ده‌ڵێت پاشه‌كه‌وتی ده‌كه‌یت یان نا ؟ وه‌ به‌ هه‌مان شێوه‌ بۆ Close Tue, 19 Feb 2008 13:47:23 +0100 http://www.webchin.org/Meko/peyami-jimare/26647.html#p26647 26647@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: سڵاو،باسی ڤیژوال به‌یسكی شه‌س ده‌كه‌یت یان دۆت نێت؟!:)تۆ ده‌ته‌وێت دیالۆگی پێوانه‌یی standard ی ویندۆز به‌كاربهێنیت بۆ نوێ‌/داخستن ..هتد یان چۆن خودی فایل دروست ده‌كه‌یت و مامه‌ڵه‌ی له‌گه‌ڵ ده‌كه‌یت ؟وا بزانم خۆت ده‌زانیت كه‌ چۆن Common Dialog  زیاد ده‌كه‌یت ..بۆ ئه‌و مه‌به‌سته‌ی تۆ، پێویستیت به‌ Common dialog  نییه‌، چوونكه‌ تۆ داخستن/كردنه‌وه‌ی فایلی نوێت ده‌وێت.ئه‌م پرسیارانه‌ دێنه‌ پێشه‌وه‌:١. گه‌ر وه‌كوو وۆرد بته‌وێت، واته‌ به‌رنامه‌كه‌ت ( MDI (Multiple Document Interface :ئه‌لف. ئایا Richeditbox به‌ ته‌نها له‌ خودی په‌نجه‌ره‌كه‌تد هه‌یه‌؟ ئه‌و كات كێشه‌ی نوێكردنه‌وه‌ی ڕووكاره‌كه‌ت نییه‌، ئه‌و په‌نجه‌ره‌یه‌ دابخه‌ و په‌نجه‌ره‌یه‌كی نوێ بكه‌ره‌وه‌. وه‌كوو چۆن له‌ ۆرد دا ئه‌وه‌ی به‌رده‌ستت داده‌خه‌یت و كرته‌ له‌ نوێ ده‌كه‌یت.ب. گه‌ر Richeditbox به‌ته‌نها نه‌بوو به‌سترابوو به‌ ئامرازه‌كانی تره‌وه‌، وه‌كوو ۆرد، كه‌ دۆكیومێنتێكی نوێ ده‌كه‌یته‌وه‌، په‌نجه‌ره‌ی تر ده‌كاته‌وه‌ به‌هه‌موو ئامرازه‌ و لیسته‌ و..هتد. ئه‌و كات پێویسته‌ تۆش كه‌ په‌نجه‌ره‌ی نوێت كرده‌وه‌، هه‌موو ئامرازه‌كان بۆ ئه‌و په‌نجه‌ره‌یه‌ دابین بكه‌یت و له‌سه‌ر نرخێكی بنه‌ڕه‌تی default دایان بنێیت.٢. گه‌ر SDI بێت وه‌كوو ئه‌و به‌رنامه‌ی وه‌رگێڕه‌ی من كردوومه‌. ئه‌و كات ته‌نها Richeditbox ده‌ستكاریی ده‌كه‌یت و سه‌رله‌نوێ ڕێكی ده‌خه‌یته‌وه‌. ئه‌وه‌ی من #c هاوشێوه‌یه‌ له‌گه‌ڵ ڤیژواڵ به‌یسكی دۆت نێت.گه‌ر هه‌ڕه‌مه‌كی به‌رنامه‌ داناڕێژیت و ته‌نها فێربوونت مه‌به‌سته‌، باشتره‌ دانیشیت هه‌نگاوه‌كان بنووسیته‌وه‌. ڤیژواڵ به‌یسكی شه‌ش، فێربوونی ئاسانه‌، به‌ڵام گه‌ر به‌وردی كرداره‌كانی لێكنه‌ده‌یته‌وه‌، چه‌ند شاره‌زابیت تیایدا ناتوانیت بڵێیت به‌رنامه‌داڕێژم. گه‌وره‌ترین كێشه‌ش له‌وه‌دایه‌ پاڵپشتی ته‌كنیكێك ناكات كه‌ ئه‌مڕۆكه‌ هه‌موو زمانه‌كان پێش بڕكێیانه‌ له‌سه‌ری. Tue, 19 Feb 2008 13:22:18 +0100 http://www.webchin.org/Meko/peyami-jimare/26548.html#p26548 26548@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: ده‌ستخۆش كاك گه‌نجۆ گیان ده‌تت خۆش بێت هیوادارم سه‌ركه‌وتووبی Sun, 17 Feb 2008 09:22:30 +0100 http://www.webchin.org/Meko/peyami-jimare/26521.html#p26521 26521@http://www.webchin.org/Meko ??????: پرسیارێك ده‌باره‌ی به‌رنامه‌ی Visual Bisac دروستكردنی (New,Open,Close,Save) ??????: سڵاو ئه‌و كاته‌ت باش كاكه‌ (ئامانج)  ببوره‌ چه‌ند ڕۆژێكه‌  به‌هۆی سه‌ر قاڵی خۆم نه‌م توانی سه‌ردانی ماڵپه‌ری خۆشه‌ويستی وێبچن بكه‌م  وه‌ جوابی ئه‌و داوا كاريه‌ت بده‌مه‌وه‌  كه‌ داوات كردوه‌ بۆ دارشتنی (New,Open,Close,Save)به‌ پڕۆگرامی vb براكه‌م  ئه‌م داڕشتنه‌ دابگره‌ ئه‌م داڕشتنه‌ تايبه‌ته‌ به‌ داواكاريه‌كه‌ی تۆ داگرتنی پڕۆژه‌ تايبه‌ت به‌ داواكاريه‌كه‌ت http://www.2shared.com/file/2854615/7a5 … save.html?داگرتنی به‌شی 1 تايبه‌ت به‌ ڕون كردنه‌وه‌ له‌سه‌ر به‌كار هێنانی ComDlg32 ئه‌م وانه‌يه‌ ساڵی پار نوسيومه‌ http://www.2shared.com/file/2854604/144 … 2ocx.html? Sat, 16 Feb 2008 16:15:00 +0100