سڵاو ئه‌و كاته‌ت باش كاكه‌ (ئامانج)  ببوره‌ چه‌ند ڕۆژێكه‌  به‌هۆی سه‌ر قاڵی خۆم نه‌م توانی سه‌ردانی ماڵپه‌ری خۆشه‌ويستی وێبچن بكه‌م  وه‌ جوابی ئه‌و داوا كاريه‌ت بده‌مه‌وه‌  كه‌ داوات كردوه‌ بۆ دارشتنی
(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?

سڵاو،
باسی ڤیژوال به‌یسكی شه‌س ده‌كه‌یت یان دۆت نێت؟!

تۆ ده‌ته‌وێت دیالۆگی پێوانه‌یی standard ی ویندۆز به‌كاربهێنیت بۆ نوێ‌/داخستن ..هتد یان چۆن خودی فایل دروست ده‌كه‌یت و مامه‌ڵه‌ی له‌گه‌ڵ ده‌كه‌یت ؟

وا بزانم خۆت ده‌زانیت كه‌ چۆن Common Dialog  زیاد ده‌كه‌یت ..





بۆ ئه‌و مه‌به‌سته‌ی تۆ، پێویستیت به‌ Common dialog  نییه‌، چوونكه‌ تۆ داخستن/كردنه‌وه‌ی فایلی نوێت ده‌وێت.

ئه‌م پرسیارانه‌ دێنه‌ پێشه‌وه‌:
١. گه‌ر وه‌كوو وۆرد بته‌وێت، واته‌ به‌رنامه‌كه‌ت ( MDI (Multiple Document Interface :
ئه‌لف. ئایا Richeditbox به‌ ته‌نها له‌ خودی په‌نجه‌ره‌كه‌تد هه‌یه‌؟ ئه‌و كات كێشه‌ی نوێكردنه‌وه‌ی ڕووكاره‌كه‌ت نییه‌، ئه‌و په‌نجه‌ره‌یه‌ دابخه‌ و په‌نجه‌ره‌یه‌كی نوێ بكه‌ره‌وه‌. وه‌كوو چۆن له‌ ۆرد دا ئه‌وه‌ی به‌رده‌ستت داده‌خه‌یت و كرته‌ له‌ نوێ ده‌كه‌یت.

ب. گه‌ر Richeditbox به‌ته‌نها نه‌بوو به‌سترابوو به‌ ئامرازه‌كانی تره‌وه‌، وه‌كوو ۆرد، كه‌ دۆكیومێنتێكی نوێ ده‌كه‌یته‌وه‌، په‌نجه‌ره‌ی تر ده‌كاته‌وه‌ به‌هه‌موو ئامرازه‌ و لیسته‌ و..هتد. ئه‌و كات پێویسته‌ تۆش كه‌ په‌نجه‌ره‌ی نوێت كرده‌وه‌، هه‌موو ئامرازه‌كان بۆ ئه‌و په‌نجه‌ره‌یه‌ دابین بكه‌یت و له‌سه‌ر نرخێكی بنه‌ڕه‌تی default دایان بنێیت.

٢. گه‌ر SDI بێت وه‌كوو ئه‌و به‌رنامه‌ی وه‌رگێڕه‌ی من كردوومه‌. ئه‌و كات ته‌نها Richeditbox ده‌ستكاریی ده‌كه‌یت و سه‌رله‌نوێ ڕێكی ده‌خه‌یته‌وه‌. ئه‌وه‌ی من #c هاوشێوه‌یه‌ له‌گه‌ڵ ڤیژواڵ به‌یسكی دۆت نێت.

گه‌ر هه‌ڕه‌مه‌كی به‌رنامه‌ داناڕێژیت و ته‌نها فێربوونت مه‌به‌سته‌، باشتره‌ دانیشیت هه‌نگاوه‌كان بنووسیته‌وه‌.


ڤیژواڵ به‌یسكی شه‌ش، فێربوونی ئاسانه‌، به‌ڵام گه‌ر به‌وردی كرداره‌كانی لێكنه‌ده‌یته‌وه‌، چه‌ند شاره‌زابیت تیایدا ناتوانیت بڵێیت به‌رنامه‌داڕێژم. گه‌وره‌ترین كێشه‌ش له‌وه‌دایه‌ پاڵپشتی ته‌كنیكێك ناكات كه‌ ئه‌مڕۆكه‌ هه‌موو زمانه‌كان پێش بڕكێیانه‌ له‌سه‌ری.

كاكه‌ ئامانج (Microsoft Office Word 2003) من به‌كارم هينا به‌و شێوه‌ی تۆ ده‌ت ويست  نمونه‌ نوسيم webchin له‌ناو په‌ڕه‌يه‌كی به‌تاڵ پاشان كرته‌م كرده‌وه‌ له‌سه‌ر New &Blank Document دوای كرته‌ كردن داوای پاشه‌كه‌وتی نه‌كرد كه‌ چه‌ند وشه‌يه‌كشم له‌ناو نوسيبوو  به‌ڵكو New Blank Document نوێ دروست بوو ؟؟؟؟ كه‌ بون به‌ دوان

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 = True
Save.Enabled = True

New.Enabled = False
Save.Enabled = False

ئايه‌ كه‌ . به‌كار هاتوه‌ له‌ پێش New له‌نێو داڕشتنی گشتی پشت به‌ چی به‌ستراوه‌ بۆ ئه‌وه‌ی دوای .Enabled  كار بكات

من وام داناوه‌ له‌ كۆده‌كه‌ی سه‌ره‌وه‌ كه‌ دوو دووگمه‌ هه‌بن به‌ناوی New, Save

به‌كار هێنانی هه‌ردوو دوگمه‌ی New, Save  گرفتی وه‌كارنه‌كه‌وتنی Enabled   چاره‌سه‌ر ده‌كات.هۆی دروست بونی ئه‌م پرسياره‌م ته‌نيا( . ) بوو كه‌ به‌كار هاتبوو له‌ نێوان

New.Enabled = True
Save.Enabled = True

New.Enabled = False
Save.Enabled = False

سڵاو.
وه‌كوو وتم ڤیژواڵ به‌یسكی ٦.٠ ـم لا نییه‌. كۆده‌كه‌م به‌ دۆت نێت نووسیوه‌، بێگومان گۆرانكاریی ئه‌وتۆت ناوێت له‌په‌یكه‌ری داڕشتنه‌كه‌دا، ته‌نها له‌ ناوه‌كان و هه‌ندێك پارامیته‌ر...


كۆدی دووگمه‌ی نوێ 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 بانگهێشت ده‌كرێت كه‌ ڕووكارێكی نوێ بكرێته‌وه‌..

گه‌ر وه‌شانی شه‌شم ده‌ست كه‌وت له‌ فرسه‌تێكدا بۆت ده‌نووسم.

كاك ئاراس به‌م شێوه‌یه‌ ئه‌م كاره‌م كرد

بۆ 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 دێت،

هه‌ربژی كاك ئاراس به‌ڕاستی مامۆستای به‌رنامه‌یت،

بژیت