Visual Studio: Useful Keyboard Shortcuts

CTRL + M + O will collapse all.
CTRL + M + L will expand all.
CTRL + M + P will expand all and disable outlining.
CTRL + M + M Collapse / un-collapse current preset area (e.g. method)
CTRL + F6 / CTRL + Shift + F6 Go to next / go to previous window

VB.NET'te windows schedule ekleme

VB.NET'te windows schedule ekleme

Dim JobID As String = "Test"
Dim mgmtClass As New ManagementClass("Win32_ScheduledJob")
Dim methodArgs(6) As Object 'seven arguments
methodArgs(0) = "Notepad.exe"
methodArgs(1) = "********143000.000000-420"
methodArgs(2) = True
methodArgs(3) = 1 Or 4 Or 16 'days of the week? 
methodArgs(4) = Nothing
methodArgs(5) = True
Methodargs(6) = JobID
'Execute the method
Dim errorNum As Integer = mgmtClass.InvokeMethod("Create", methodArgs)
MsgBox(errorNum) 'Zero means success. 

http://social.msdn.microsoft.com/Forums/en-US/vblanguage/thread/04eca99a-d167-4388-b010-7d5ded0da86e/

http://msdn.microsoft.com/en-us/library/aa394399(VS.85).aspx

User Control içinde TextBox'ın Text property sini override etmek.

User Control içinde TextBox'ın Text property sini override etmek.

Imports System.ComponentModel

    <EditorBrowsable(EditorBrowsableState.Always)> _
    <Browsable(True)> _
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    <Bindable(True)> _
    Public Overrides Property Text() As String
        Get
            Return TextBox1.Text
        End Get
        Set(ByVal value As String)
            TextBox1.Text = value
        End Set
    End Property

VB.NET Datatable'daki veriyi sıralamak.

Datatable'daki veriyi, SQL'deki Order By deyimini kullanıyormuş gibi sıralamak.

myDataTable.DefaultView.Sort = "columnName DESC"

ya da LinQ kullanarak

Dim linQuery = (From dRow In myDataTable.AsEnumerable() _
                Order By dRow.Item(columnName) Descending)
myDataTable = linQuery.CopyToDataTable()

ListView'e DataTable'dan veri aktarmak.

ListView'e DataTable'dan veri aktarmak. Aşağıdaki kodu kullanmadan önce, listView'de str dizisine aktarılan her veri için bir kolon oluşturulması gerekmektedir.

For i As Integer = 0 To myDataTable.Rows.Count - 1
    Dim str(4) As String
    Dim itm As ListViewItem
    str(0) = myDataTable.Rows(i)("userID")    str(1) = myDataTable.Rows(i)("Name")    str(2) = myDataTable.Rows(i)("SurName")    str(3) = myDataTable.Rows(i)("Genre")    str(4) = myDataTable.Rows(i)("Country")    itm = New ListViewItem(str)
    listView.Items.Add(itm)
Next

RSAPKCS1SHA256SignatureDescription in VB.NET

Imports System
Imports System.Security.Cryptography
Imports System.Security.Cryptography.Xml
Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Xml
Imports System.Collections
Imports System.Reflection

Public Class RSAPKCS1SHA256SignatureDescription
    Inherits SignatureDescription

    Public Sub RSAPKCS1SHA256SignatureDescription()
        KeyAlgorithm = GetType(RSACryptoServiceProvider).FullName
        DigestAlgorithm = GetType(SHA256Managed).FullName   ' Note - SHA256CryptoServiceProvider is not registered with CryptoConfig
        FormatterAlgorithm = GetType(RSAPKCS1SignatureFormatter).FullName
        DeformatterAlgorithm = GetType(RSAPKCS1SignatureDeformatter).FullName
    End Sub

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

"No template information found. See the application log in Event Viewer for more details." Error Message

http://blog.laksha.net/2008/09/no-visual-studio-template-information.html?showComment=1234405860000


I am facing the following issue in my Visual Studio 2008. When I try to Create new website or new project it shows following error message.

“No template information found. See the application log in Event Viewer for more details.

To open Event Viewer, click Start, Click Control Panel, double-click Administrative Tools, and then double-click Event Viewer.”