این هم یه شعر واسه بعضی دخترهای امروزی :
آخر یه روز تیک میگیری ، لباسهای شیک میگیری ، بابات را میکنی کچل ، تا بینی رو کنی عمل ، با همراهت زنگ میزنی ، عینک رنگ رنگ میزنی ، این دل و اون دل میزنی ، هی به موهات ژل میزنی ، جنس لباسات تریکو ، موزیک فقط از انریکو ، جوراب های فسقلکی ، روسری های الکی ، با اشوه های شُتری ، میشینی پشت موتوری ، تو خیالت خیلی تکی ، فکر میکنی با نمکی ، خوشی با این تیپ خفن ، حالا قشنگی مثلا ؟
------------------------------------------------------------------------
فالگیر: فردا شوهرتون میمیره!
زن: اینو که خودم میدونم. بهم بگو گیر پلیس میفتم یا نه!
درشهرعشق قدم میزدم گذرم افتادبه قبرستان عاشقان خیلی تعجب کردم تاچشم کارمی کردقبربودپیش خودم گفتم یعنی این قدرقلب شکسته وجودداره؟یکدفعه متوجه قلبی شدم که تازه خاک شده بودجلورفتم برگهای روی قبرراکنارزدم که براش دعاکنم وای چی میدیدم باورم نمیشه اون قلبه همون کسیه که چندساله پیش دله منو شکسته بود(ازهردست بدی ازهمون دست میگیری)(
Public
Class Form1 Inherits System.Windows.Forms.Form#
Region " Windows Form Designer generated code " Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer.InitializeComponent()
'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Thencomponents.Dispose()
End If End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog Friend WithEvents PrintPreviewDialog1 As System.Windows.Forms.PrintPreviewDialog Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument Friend WithEvents PrintDialog1 As System.Windows.Forms.PrintDialog Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1)) Me.MainMenu1 = New System.Windows.Forms.MainMenu Me.MenuItem1 = New System.Windows.Forms.MenuItem Me.MenuItem2 = New System.Windows.Forms.MenuItem Me.MenuItem3 = New System.Windows.Forms.MenuItem Me.MenuItem4 = New System.Windows.Forms.MenuItem Me.MenuItem5 = New System.Windows.Forms.MenuItem Me.MenuItem6 = New System.Windows.Forms.MenuItem Me.MenuItem7 = New System.Windows.Forms.MenuItem Me.MenuItem8 = New System.Windows.Forms.MenuItem Me.MenuItem9 = New System.Windows.Forms.MenuItem Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog Me.FontDialog1 = New System.Windows.Forms.FontDialog Me.ColorDialog1 = New System.Windows.Forms.ColorDialog Me.PrintPreviewDialog1 = New System.Windows.Forms.PrintPreviewDialog Me.RichTextBox1 = New System.Windows.Forms.RichTextBox Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument Me.PrintDialog1 = New System.Windows.Forms.PrintDialog Me.MenuItem10 = New System.Windows.Forms.MenuItem Me.MenuItem11 = New System.Windows.Forms.MenuItem Me.MenuItem12 = New System.Windows.Forms.MenuItem Me.MenuItem13 = New System.Windows.Forms.MenuItem Me.SuspendLayout() ' 'MainMenu1 ' Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem6}) ' 'MenuItem1 ' Me.MenuItem1.Index = 0 Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5, Me.MenuItem10}) Me.MenuItem1.Text = "file" ' 'MenuItem2 ' Me.MenuItem2.Index = 0 Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.CtrlO Me.MenuItem2.Text = "open" ' 'MenuItem3 ' Me.MenuItem3.Checked = True Me.MenuItem3.DefaultItem = True Me.MenuItem3.Index = 1 Me.MenuItem3.MdiList = True Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlS Me.MenuItem3.Text = "save" ' 'MenuItem4 ' Me.MenuItem4.Index = 2 Me.MenuItem4.Shortcut = System.Windows.Forms.Shortcut.CtrlE Me.MenuItem4.Text = "exit" ' 'MenuItem5 ' Me.MenuItem5.Index = 3 Me.MenuItem5.Shortcut = System.Windows.Forms.Shortcut.CtrlB Me.MenuItem5.Text = "folder browser" ' 'MenuItem6 ' Me.MenuItem6.Index = 1 Me.MenuItem6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem8, Me.MenuItem9, Me.MenuItem11, Me.MenuItem12, Me.MenuItem13}) Me.MenuItem6.Text = "edit" ' 'MenuItem7 ' Me.MenuItem7.Index = 0 Me.MenuItem7.Shortcut = System.Windows.Forms.Shortcut.CtrlF Me.MenuItem7.Text = "font" ' 'MenuItem8 ' Me.MenuItem8.Index = 1 Me.MenuItem8.Shortcut = System.Windows.Forms.Shortcut.CtrlC Me.MenuItem8.Text = "color" ' 'MenuItem9 ' Me.MenuItem9.Index = 2 Me.MenuItem9.Shortcut = System.Windows.Forms.Shortcut.CtrlP Me.MenuItem9.Text = "print" ' 'PictureBox1 ' Me.PictureBox1.Location = New System.Drawing.Point(0, 0) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(328, 264) Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False ' 'OpenFileDialog1 ' Me.OpenFileDialog1.Filter = """txt files(*.txt)|*.txt""" Me.OpenFileDialog1.Multiselect = True ' 'SaveFileDialog1 ' Me.SaveFileDialog1.CheckFileExists = True Me.SaveFileDialog1.CreatePrompt = True Me.SaveFileDialog1.Filter = """txt files(*.txt)|*.txt""" Me.SaveFileDialog1.ShowHelp = True ' 'PrintPreviewDialog1 ' Me.PrintPreviewDialog1.AutoScrollMargin = New System.Drawing.Size(0, 0) Me.PrintPreviewDialog1.AutoScrollMinSize = New System.Drawing.Size(0, 0) Me.PrintPreviewDialog1.ClientSize = New System.Drawing.Size(400, 300) Me.PrintPreviewDialog1.Enabled = True Me.PrintPreviewDialog1.Icon = CType(resources.GetObject("PrintPreviewDialog1.Icon"), System.Drawing.Icon) Me.PrintPreviewDialog1.Location = New System.Drawing.Point(44, 58) Me.PrintPreviewDialog1.MinimumSize = New System.Drawing.Size(375, 250) Me.PrintPreviewDialog1.Name = "PrintPreviewDialog1" Me.PrintPreviewDialog1.TransparencyKey = System.Drawing.Color.Empty Me.PrintPreviewDialog1.Visible = False ' 'RichTextBox1 ' Me.RichTextBox1.Location = New System.Drawing.Point(56, 32) Me.RichTextBox1.Name = "RichTextBox1" Me.RichTextBox1.Size = New System.Drawing.Size(216, 136) Me.RichTextBox1.TabIndex = 2 Me.RichTextBox1.Text = "RichTextBox1" ' 'PrintDialog1 ' Me.PrintDialog1.AllowSelection = True Me.PrintDialog1.AllowSomePages = True Me.PrintDialog1.PrintToFile = True ' 'MenuItem10 ' Me.MenuItem10.Index = 4 Me.MenuItem10.Shortcut = System.Windows.Forms.Shortcut.CtrlN Me.MenuItem10.Text = "new" ' 'MenuItem11 ' Me.MenuItem11.Index = 3 Me.MenuItem11.Shortcut = System.Windows.Forms.Shortcut.CtrlK Me.MenuItem11.Text = "copy" ' 'MenuItem12 ' Me.MenuItem12.Index = 4 Me.MenuItem12.Shortcut = System.Windows.Forms.Shortcut.CtrlJ Me.MenuItem12.Text = "cut" ' 'MenuItem13 ' Me.MenuItem13.Index = 5 Me.MenuItem13.Text = "pase" ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(328, 266) Me.Controls.Add(Me.RichTextBox1) Me.Controls.Add(Me.PictureBox1) Me.Menu = Me.MainMenu1 Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub#
End Region Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Dim openFile As New OpenFileDialogOpenFileDialog1.DefaultExt = "*.txt"
OpenFileDialog1.Filter = "txt files|*.txt"
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK ThenRichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
MenuItem2.Shortcut = Shortcut.CtrlO
End If End Sub Private Sub PrintPreviewControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click Dim SaveFile As New SaveFileDialogSaveFileDialog1.DefaultExt = "*.txt"
SaveFileDialog1.Filter = "txt files|*.txt"
If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK And (SaveFileDialog1.FileName.Length) > 0 ThenRichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
MenuItem3.Shortcut = Shortcut.CtrlS
End If End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click EndMenuItem4.Shortcut = Shortcut.CtrlE
End Sub Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click If FolderBrowserDialog1.ShowDialog = DialogResult.OK ThenRichTextBox1.SaveFile(FolderBrowserDialog1.SelectedPath & "schedule.txt")
MenuItem5.Shortcut = Shortcut.CtrlB
End If End Sub Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click If FontDialog1.ShowDialog = DialogResult.OK ThenRichTextBox1.Font = FontDialog1.Font
RichTextBox1.ForeColor = FontDialog1.Color
MenuItem7.Shortcut = Shortcut.CtrlF
End If End Sub Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click If ColorDialog1.ShowDialog = DialogResult.OK ThenPictureBox1.BackColor = ColorDialog1.Color
MenuItem8.Shortcut = Shortcut.CtrlC
End If End Sub Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.ClickPrintDialog1.Document = PrintDocument1
PrintDialog1.PrinterSettings = PrintDocument1.PrinterSettings
PrintDialog1.AllowSomePages =
True If PrintDialog1.ShowDialog = DialogResult.OK ThenPrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
PrintDocument1.Print()
MenuItem9.Shortcut = Shortcut.CtrlP
End If End Sub Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.ClickRichTextBox1.Clear()
MenuItem10.Shortcut = Shortcut.CtrlN
End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click End Sub Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click If RichTextBox1.SelectionLength > 0 ThenRichTextBox1.Copy()
MenuItem11.Shortcut = Shortcut.CtrlK
End If End Sub Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click If RichTextBox1.SelectionLength > 0 ThenRichTextBox1.Cut()
MenuItem12.Shortcut = Shortcut.CtrlJ
End If End Sub Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click If Clipboard.GetDataObject().GetDataPresent(DataFormats.Text) = True Then If RichTextBox1.SelectionLength > 0 Then If MessageBox.Show("شما می خواهید موجودی کپی نمایش داده شود؟", "cut exampel", MessageBoxButtons.YesNo) = DialogResult.No ThenRichTextBox1.SelectionStart = RichTextBox1.SelectionStart + RichTextBox1.SelectionLength
End IfRichTextBox1.Paste()
End If End If End Sub