محتاجه شرح ل Structure ..

أختى الكريمه هذا كود به بعض التعديلات على الكود الخاص بك ب VB و C#

والتطبيقات عليهما فى المرفقات

Public Class LoginForm1

    Public Structure Account
        Public Name As String
        Public Password As String
    End Structure

    Public Shared Scount As Integer = 20
    Public Slength As Single = 10
    Public User As Account() = New Account(Scount) {}
    Public Function Compar(ByVal param1 As String, ByVal param2 As String) As Boolean
        User(0).Name = "ahmad"
        User(0).Password = "00000"


        User(1).Name = "salem"
        User(1).Password = "11111"


        User(2).Name = "yaser"
        User(2).Password = "22222"

        User(3).Name = "a"
        User(3).Password = "a"


        While (User(Scount).Name = param1 And User(Scount).Password = param2)
            Scount += 1
        End While
        Return True
    End Function


    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        If Compar(UsernameTextBox.Text, PasswordTextBox.Text) Then
            'Me.Hide()
            Form1.Show()
        Else
            MessageBox.Show("Sorry! Wrong User Name or Password ")
        End If
    End Sub


    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

    End Sub

End Class

=============================================================================================

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace LOGIN
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        public struct Account
        {
            public string Name;
            public string Password;
        }

        public static int Scount = 20;
        public float Slength = 10;
        public Account[] User = new Account[Scount + 1];

        public bool Compar(string param1, string param2)
        {
            User[0].Name = "ahmad";
            User[0].Password = "00000";


            User[1].Name = "salem";
            User[1].Password = "11111";


            User[2].Name = "yaser";
            User[2].Password = "22222";

            User[3].Name = "a";
            User[3].Password = "a";


            while ((User[Scount].Name == param1 & User[Scount].Password == param2))
                Scount++;
            return true;
        }


        private void OK_Click(object sender, EventArgs e)
        {
            Form2 n = new Form2();

            if (Compar(UsernameTextBox.Text, PasswordTextBox.Text))
            {
                //this.Hide();
                n.Show();
            }
            else
            {
                MessageBox.Show("Sorry! Wrong User Name or Password ");
            }
        }
    }
}

LOGIN-C#.zip

LOGIN-VB.zip