App.Config dosyasında bulunan connectionStrings bölümünü şifrelemek.

App.Config dosyasında bulunan connectionStrings bölümünü şifrelemek.


<?xml version="1.0"?>
<configuration>
  <connectionStrings>
    <add name="ConnectionString" connectionString="Data Source=V10000-PC;Initial Catalog=SQLDB;Integrated Security=SSPI;" providerName="System.Data.SqlClient" />
  </connectionStrings>
</configuration>


Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click

    Dim str() As String = Application.ExecutablePath.Split("\")
    Dim applicationName As String = str(str.Count - 1)
    applicationName = applicationName.Replace("EXE", "exe")
    Dim config As Configuration = ConfigurationManager.OpenExeConfiguration(applicationName)



   If config.HasFile() Then
        EncryptAppConfig(config)
   End If
End Sub


Private Sub EncryptAppConfig(ByVal config As Configuration)
    Dim section As ConnectionStringsSection = config.GetSection("connectionStrings")
    If Not section.SectionInformation.IsProtected Then
       section.SectionInformation.ProtectSection("DataProtectionConfigurationProvider")
   End If
   config.Save(ConfigurationSaveMode.Modified)
   ConfigurationManager.RefreshSection("connectionStrings")
End Sub

VB.NET ToolStripDropDown Kullanımı

MyContent bir panel ya da herhangi bir kontrol elemanı olabilir.

Dim host As New ToolStripControlHost(MyContent)
host.Margin = Padding.Empty
host.Padding = Padding.Empty
host.AutoSize = False
host.Height = 180
host.Width = 490

Dim popup As New ToolStripDropDown()
popup.Margin = Padding.Empty
popup.Padding = Padding.Empty
popup.Size = host.Size
popup.BackColor = Color.White
popup.Items.Add(host)
popup.Show(pnlFill, btnSearch.Location.X, tlvMain.Height - 180)
Me.Controls.Remove(MyContent)

VB.NET'te Ayın son gününü bulmak.

VB.NET'te ayın son gününü en hızlı şekilde bulmak için, sanırım DateSerial fonksiyonu en ideal seçenek.

DateSerial(Year, Month + 1, 0)

Örnek:
Şubat 2013 tarihi için ayın son gününü bulmak : DateSerial(2013, 2 + 1, 0)

Türkiye Posta Kodları Tam Liste

http://www.mcoban.com/tag/posta-kodu/

SQL DB Örneği

Türkiye Şehir Listesi SQL Tablosu

Türkiye Şehir Listesi SQL Tablosu

DataGridView'de istenen satıra odaklanmak.

Me.myDataGridView.CurrentCell = Me.myDataGridView.Rows(e.RowIndex).Cells(1)

ya da

Me.myDataGridView.Rows(e.RowIndex).Selected = True