�� ..

�� — Thu, 02 Sep 2010 19:05:02 GMT

��

��

�� ..

�� ..

��

��

��

��

�� ..

��

��

�� — Thu, 02 Sep 2010 14:43:51 GMT

��
��
��
��

�� Resize �� GroupBox �

knight Rider — Wed, 01 Sep 2010 21:38:24 GMT

��: �� Resize �� GroupBox �
�� Visual Basic.Net

��

ayman_4all — Wed, 01 Sep 2010 21:20:18 GMT

�� 2008 �� picturebox

��

w xp 2003 — Wed, 01 Sep 2010 20:26:25 GMT

��

atefkhalf2004 — Wed, 01 Sep 2010 19:53:30 GMT

�� 3 ��
�� CType(e.Value, String) = "�"
��
�� 4 � 5 � 7
Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEve ntArgs) Handles DataGridView1.CellFormatting

If e.ColumnIndex = 3 AndAlso (e.Value < 25 Or CType(e.Value, String) = "�") Then
e.CellStyle.ForeColor = Color.Brown
DataGridView1.Rows(e.RowIndex).DefaultCellStyle.Ba ckColor = Color.Red

End If
end sub

[��] : �� php ��

�� — Wed, 01 Sep 2010 18:24:36 GMT

��

�� mysql

�� vb . net ��

�� vb .net �� php ?

�� php .

�� ..

�� PictureBox1 ��

w xp 2003 — Wed, 01 Sep 2010 13:55:05 GMT

�� PictureBox1 �� (�� ) ��

�� 30 ��

��111 — Wed, 01 Sep 2010 12:51:24 GMT

��
��

��

��

��

�� setup with local database

majed_m — Wed, 01 Sep 2010 11:43:49 GMT

:confused:��

��

�� LOcal database �� Setup ��

�� PATH SOURCE ��

��

��

��

�� — Wed, 01 Sep 2010 10:33:37 GMT

��

�� 6 ��

�� ῿

��

��

��

�� :)

��

SUB NEW — Wed, 01 Sep 2010 10:16:26 GMT

��

��

��

�� PHP:


		
			
    * Tab Control

    * Timer (disabled, intervals of 10)

    * A Menu Strip, heres the layout:

          o File

                + New (CTRL + N)

                + Open(CTRL + O)

                + Save (CTRL + S)

                + Save As

                + Exit



          o Edit

                + Undo (CTRL + Z)

                + Redo (CTRL + Y)

                + Cut(CTRL + X)

                + Copy(CTRL + C)

                + Paste(CTRL + V)

                + Delete(Del)

                + Select All(CTRL + A)



          o Tab

                + Close Tab



Public Class Form1



    Dim Tab As TabPage 'Holder for the currently selected tab page

    Dim RTB As RichTextBox 'Holder for the current RichTextBox



    Private Sub AddTab(Optional ByVal file As String = Nothing)

        Dim NewTab As New TabPage 'Create a new tab

        Dim NewRTB As New RichTextBox 'Create a new richtextbox



        Dim TabText As String = "Untitled" 'Text for the tab. Default is "Untitled"

        Dim RTBText As String = Nothing 'Text for the richtextbox. Default is Nothing



        If Not IsNothing(file) Then 'If a file was set

            If My.Computer.FileSystem.FileExists(file) Then 'If the file exists

                NewRTB.Tag = file 'Set the file as the new richtextbox's tag for later use

                TabText = My.Computer.FileSystem.GetFileInfo(file).Name 'Get the filename

                Dim reader As New System.IO.StreamReader(file) 'Create a reader to read the file

                RTBText = reader.ReadToEnd 'Read all the text of the file

                reader.Close() ' Close the reader

            Else

                MsgBox("Sorry that file doesn't exist") 'Inform the user if the file doesn't exist

            End If

        End If



        NewTab.Text = TabText 'Set the tabs text

        NewTab.Tag = NewRTB 'Set the richtextbox as the Tab's tag for later use



        NewRTB.Parent = NewTab 'Make the richtextbox a child of the tag

        NewRTB.Dock = DockStyle.Fill 'Make the richtextbox fill the tabpage

        NewRTB.Text = RTBText 'Set the richtextbox's text



        TabControl1.TabPages.Add(NewTab) 'Add the tab to the tabcontrol

        TabControl1.SelectedTab = NewTab 'Focus on the new tab

        Tab = NewTab 'Set the current tab to NewTab

        RTB = NewRTB 'Set the current richtextbox to NewRTB

    End Sub



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AddTab() 'Add a new tab by default

        Timer1.Enabled = True 'Start checking functions after adding the tab

    End Sub



    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If TabControl1.TabPages.Count > 0 Then 'If there is atleast 1 tab

            For Each Tab As TabPage In TabControl1.TabPages 'Go though tabs

                TabControl1.SelectedTab = Tab 'Selct that tab

                Dim msg As DialogResult = MessageBox.Show("Would you like to save first?", "Save", MessageBoxButtons.YesNoCancel) 'Create a message box asking to save

                If msg = DialogResult.Yes Then 'If the user presses yes

                    SaveToolStripMenuItem_Click() 'Save

                ElseIf msg = DialogResult.Cancel Then 'If the user presses cancel

                    e.Cancel = True 'Stop closing the form

                End If

            Next

        Else 'If there are less than 1 tab

            Application.Exit() 'Exit the program

        End If

    End Sub



    Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

        If TabControl1.TabCount > 0 Then 'If there are tabs

            Tab = TabControl1.SelectedTab 'Update the current Tab

            RTB = TabControl1.SelectedTab.Tag 'Update the current RichTextBox

            RTB.Focus() ' Focus on the richtextbox

            Timer1.Enabled = True 'enable the timer

            SaveToolStripMenuItem.Enabled = True 'Enable save button

            SaveAsToolStripMenuItem.Enabled = True 'Enable saveas button

            CloseTabToolStripMenuItem.Enabled = True 'Enable closetab button

        Else

            Timer1.Enabled = False 'disable the timer

            UndoToolStripMenuItem.Enabled = False 'diable undo button

            RedoToolStripMenuItem.Enabled = False 'disable redo button

            CopyToolStripMenuItem.Enabled = False 'disable copy button

            CutToolStripMenuItem.Enabled = False 'disable cut button

            PasteToolStripMenuItem.Enabled = False 'enable paste button

            DeleteToolStripMenuItem.Enabled = False 'disable delete button

            SeletAllToolStripMenuItem.Enabled = False 'disable select all button

            SaveToolStripMenuItem.Enabled = False 'Disable save button

            SaveAsToolStripMenuItem.Enabled = False 'disable saveas button

            CloseTabToolStripMenuItem.Enabled = False 'disable closetab button

        End If

    End Sub



    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

        AddTab() 'Add a new tab

    End Sub



    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click

        Dim open As New OpenFileDialog 'Create a new openfiledialog

        If open.ShowDialog = DialogResult.OK Then 'If the user selects a file and hit "Ok"

            AddTab(open.FileName) 'Add a new tab for the file

        End If

    End Sub



    Private Sub SaveToolStripMenuItem_Click() Handles SaveToolStripMenuItem.Click

        If Not IsNothing(RTB.Tag) Then

            Dim file As String = RTB.Tag 'Assign the filename to a string for easier use

            If My.Computer.FileSystem.FileExists(file) Then

                Dim reader As New System.IO.StreamReader(file) 'Create a reader ro read the file

                Dim RTBCurText = reader.ReadToEnd 'Get the files current text

                reader.Close() 'Close the reader

                If Not RTB.Text = RTBCurText Then 'If the richtextbox's text is different

                    Dim writer As New System.IO.StreamWriter(file, False) 'Create a writer to write to the file

                    writer.Write(RTB.Text) 'Write the richtextbox's content to the file

                    writer.Close() ' Close the writer

                End If

            Else 'If the file doesn't exist

                SaveAsToolStripMenuItem_Click() 'Execute the SaveAsToolStripMenuItem_Click() function

            End If

        Else 'The tag hasn't been set yet

            SaveAsToolStripMenuItem_Click() 'Execute the SaveAsToolStripMenuItem_Click() function

        End If

    End Sub



    Private Sub SaveAsToolStripMenuItem_Click() Handles SaveAsToolStripMenuItem.Click

        Dim saveas As New SaveFileDialog 'Create a SaveFileDialog

        If saveas.ShowDialog = DialogResult.OK Then 'If the user names the file and hits Ok

            Dim writer As New System.IO.StreamWriter(saveas.FileName, False) 'Create a writer to write to the file

            writer.Write(RTB.Text) 'Write the richtextbox's content to the file

            writer.Close() ' Close the writer



            RTB.Tag = saveas.FileName 'Save the filename for later use

            Tab.Text = My.Computer.FileSystem.GetFileInfo(saveas.FileName).Name 'Update the tab's text

        End If

    End Sub



    Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click

        RTB.Undo() 'Undo the last thing in the current RichTextBox

    End Sub



    Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click

        RTB.Redo() 'Redo the last thing in the current RichTextBox

    End Sub



    Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click

        RTB.Cut() 'Cut the seleted text in the current RichTextBox

    End Sub



    Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click

        RTB.Copy() 'Copy the seleted text in the current RichTextBox

    End Sub



    Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click

        RTB.Paste() 'Paste into the current RichTextBox

    End Sub



    Private Sub DeleteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteToolStripMenuItem.Click

        RTB.SelectedText = "" 'Delete the seleted text in the current RichTextBox

    End Sub



    Private Sub SeletAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SeletAllToolStripMenuItem.Click

        RTB.SelectAll() 'Seleect all in the current RichTextBox

    End Sub



    Private Sub CloseTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseTabToolStripMenuItem.Click

        Dim msg As DialogResult = MessageBox.Show("Would you like to save first?", "Save", MessageBoxButtons.YesNoCancel) 'Create a message box asking to save

        If msg = DialogResult.Yes Then 'If user presses yes

            SaveToolStripMenuItem_Click() 'Save

            TabControl1.TabPages.Remove(Tab) 'Then remove tab

        ElseIf msg = DialogResult.No Then 'If user presses no

            TabControl1.TabPages.Remove(Tab) 'Remove tab without saving

        End If

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If RTB.CanUndo Then 'If current richtextbox can undo

            UndoToolStripMenuItem.Enabled = True 'enable undo button

        Else

            UndoToolStripMenuItem.Enabled = False 'diable undo button

        End If



        If RTB.CanRedo Then 'If current richtextbox can redo

            RedoToolStripMenuItem.Enabled = True 'enable redo button

        Else

            RedoToolStripMenuItem.Enabled = False 'disable redo button

        End If



        If RTB.SelectedText.Length > 0 Then 'If the selected text of the current richtextbox is longer than 0

            CopyToolStripMenuItem.Enabled = True 'enable copy button

            CutToolStripMenuItem.Enabled = True 'enable cut button

            DeleteToolStripMenuItem.Enabled = True 'enable delete button

        Else

            CopyToolStripMenuItem.Enabled = False 'disable copy button

            CutToolStripMenuItem.Enabled = False 'disable cut button

            DeleteToolStripMenuItem.Enabled = False 'disable delete button

        End If



        If My.Computer.Clipboard.ContainsText Then 'If there is text copied to the clipboard

            PasteToolStripMenuItem.Enabled = True 'enable paste button

        Else

            PasteToolStripMenuItem.Enabled = False 'disable paste button

        End If



        If RTB.Text.Length > 0 Then 'If the text of the current richtextbox is longer than 0

            SeletAllToolStripMenuItem.Enabled = True 'enable select all button

        Else

            SeletAllToolStripMenuItem.Enabled = False disable select all button

        End If

    End Sub

End Class

��

��

��

��

��

SUB NEW — Wed, 01 Sep 2010 10:10:05 GMT

��

��

��

��

��

��

��

��

��

��

��

Untitled.jpg‏ (46.7 ��)

�� : ��

UndoRedoFramework_src.rar‏ (18.7 ��)

Windows� API Code Pack for Microsoft� .NET Framework

SUB NEW — Wed, 01 Sep 2010 09:59:42 GMT

��

�� Windows� API Code Pack for Microsoft� .NET Framework

��

��

* Windows 7 Taskbar
o Jump Lists, Icon Overlay, Progress Bar, Tabbed Thumbnails, and Thumbnail Toolbars
* Windows Shell
o Windows 7 Libraries
o Windows Shell Search API support
o Explorer Browser Control
o A hierarchy of Shell Namespace entities
o Windows Shell property system
o Drag and Drop for Shell Objects
o Windows Vista and Windows 7 Common File Dialogs, including custom controls
o Known Folders and non-file system containers
o Shell Object Watcher
o Shell Extensions API support
* DirectX
o Direct3D 11.0, Direct3D 10.1/10.0, DXGI 1.0/1.1, Direct2D 1.0, DirectWrite, Windows Imaging Component (WIC) APIs
* Windows Vista and Windows 7 Task Dialogs
* Sensor Platform APIs
* Extended Linguistic Services APIs
* Power Management APIs
* Application Restart and Recovery APIs
* Network List Manager APIs
* Command Link control and System defined Shell icons

�� 20 ��

http://code.msdn.microsoft.com/WindowsAPICodePack

��

http://code.msdn.microsoft.com/Windo...ReleaseId=4906

��

��

��

�� — Wed, 01 Sep 2010 08:19:40 GMT

��
��
��

��
�� ,,,

����� ������ ���� - ������ ���� ��� �� VB.NET

���� ������� ����� ������ ������� ������� ..

���� ��� ����� ������ ��� ���� ������

���� ��� ���� ��� Resize ������� ���� ���� GroupBox �

������� �� �����

��� ��� ������ ����� ������ �

����� ������� ��� ���� ������

[���] : ���� ����� ��� ���� php �� ��������

���� ����� ������ �� ����� �� PictureBox1 �� ������ �� ���� �������� �

���� ����� �� 30 �� ���� �� ���� �����

����� �� setup with local database

���� ���� �� ���� ����� ���� ��� ��

����� ������ ���������

������� �������� �� ���� ����� ��