INSTALAR ECLIPSE Y EL SDK DE ANDROID

Descargar:
 • Eclipse ( http://www.eclipse.org/downloads/ )
• Java JDK (http://java.sun.com/javase/downloads/index.jsp )
• SDK Android (http://developer.android.com/sdk/installing/index.html)

 Instalar :
 • Java JDK
• Eclipse
• SDK Android

 Añadir el plugin de Android:

• Ir al menu Help/Install new software, en work whit click en Add y pegar la siguiente direccion en url:   https://dl-ssl.google.com/android/eclipse/ y click en Ok. 
•  Una vez añadido la url, seleccionar Developer Tools y ndk Plugins, click en next. 
• IMPORTANTE: Reiniciar Eclipse para aplicar los cambios . 
• Abrir el sdk manager e instaral los paquetes Añadir la ruta del SDK: 
•  Ir al menu Window/Preferences, apartado Android, ahi añadir la ruta donde se instalo el sdk.

Agregar un nuevo TabPage en un TabControl C#

Para el formulario principal

1. Crear un nuevo proyecto
2. Al formulario agregarle un TABCONTROL
3. Agregar un BUTTON

Aparte, debemos crear un UserControl o control de usuario que es donde pondremos la info a mostrar


Para poder crear una nueva pestaña, lo unico que debemos hacer es:
1. Dar doble clic en el boton que agregamos en el form principal

y agregaremos el siguiente codigo:

TabPage NewTab = new TabPage(); // Creamos una nueva pestaña

tabControl1.TabPages.Add(NuevaPestaña ); //cargamos la pestaña en el control

tabControl1.SelectedTab = NewTab; //seleccionamos la pestaña 

NewTab.Controls.Add(new UserControl1 ()); //Agregamos el control de usuario dentro de la nueva pestaña

En este codigo solo debes sustituir tabControl por el nombre que tu le hayas puesto, igualmente en userControl.


   

Llenar DataGridView (Conexion SQL)

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1

Private Sub btnllenarGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnllenarGrid.Click

Try

    Dim cnn As New SqlConnection("Data Source=SERVIDOR;Initial Catalog=BD;User ID=USER; Password=PASS; Integrated Security=SSPI;")
    Dim da As New SqlDataAdapter("SELECT * FROM tabla, cnn)
    da.Fill(ds)
    DataGridView1.DataSource = ds.Tables(0)

Catch ex As Exception

End Try

End Sub
End Class

Algunas Funciones: Button

Mostrar mensaje descriptivo con toolTip

Private Sub btnquery_MouseHover(ByVal se...)Handles btnquery.MouseHover
        Me.ToolTip1.SetToolTip(Me.btnquery, "Pulsa para mostrar")
End Sub

Filtros con un DataGridView

Dentro de la clase creare una funcion para llenar mi DataGridView con todos los datos que encuentre segun mi consulta.

Funcion:

Public Sub llenarGrid(ByVal consultar As String, ByVal dgv As DataGridView)
       connectingMYSQL()
       Dim da As New MySqlDataAdapter(consultar, cnnMYSQL)
       Dim ds As New DataSet
       da.Fill(ds)
       dgv.DataSource = ds.Tables(0)
End Sub

Manera en la que llamo a mi funcion llenarGrid desde el formulario

sql = "Select * from alumnos where nombre like  '%" & txtFiltro.Text & "%'"
metodo.llenarGrid(sql, DataGridViewAl)

Como usar el filtro según la necesidad:

Que empiece con

..WHERE NOMBRE LIKE '" & txtFiltro.Text & "%'

Que termine con

..WHERE NOMBRE LIKE '%" & txtFiltro.Text & "'

Que contenga

..WHERE NOMBRE LIKE '%" & txtFiltro.Text & "%'

Algunas funciones TextBox

Cambiar a mayúsculas y minúsculas con UPPER y LOWER

' Mayúsculas
    Private Sub TextBox1_TextChanged(ByVal s...
        TextBox1.CharacterCasing = CharacterCasing.Upper
    End Sub
'Minusculas :

    Private Sub TextBox1_TextChanged(ByVal s...
        TextBox1.CharacterCasing = CharacterCasing.Lower
    End Sub  

★·.·´¯`·.·★★·.·´¯`·.·★


Validar TextBox

Solo Caracteres

Private Sub txtMaterno_KeyPress(ByVal s...
If (Not Char.IsLetter(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8))Then
    e.Handled = True
End If
End Sub

Solo numeros

Private Sub txtMaterno_KeyPress(ByVal s...
If (Not Char.IsNumber(e.KeyChar) And e.KeyChar <> Microsoft.VisualBasic.ChrW(8)) Then
    e.Handled = True
End If
End Sub

Visual Studio 2005

PARTE1 | PARTE2 | PARTE3 | PARTE4 | PARTE5

Conexion SQL y Visual Basic .NET

En algunos proyectos que he realizado he utilizado esta clase para conectar MYSQL con VB .NET, la verdad es que no me ha causado conflicto y solo la he tenido que modificar para algunos fines específicos pero contiene lo básico para hacer las operaciones principales como guardar consultar y borrar algún dato.

Imports System.Data
Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient

Public Class Consulta 
#Region "Variables"
    Dim cnnMYSQL As New MySqlConnection
    Dim cnnSQL As New SqlConnection
    Dim cmd As SqlCommand
    Dim cmnd As MySqlCommand
    Dim dt, dtr As New DataTable()

#End Region

#Region "ConnectionString"
    Public Sub connectingSQL()
    Try
cnnSQL.ConnectionString = "Data Source=server;Initial Catalog=catalog;Integrated Security=SSPI;"
            cnnSQL.Open()
        Catch ex As SqlException
        End Try
    End Sub
    Public Sub connectingMYSQL()
        Try
         cnnMYSQL = New MySqlConnection()
         cnnMYSQL.ConnectionString = "Data Source = server;Database=db;User ID=root; Password = pass; Allow Zero Datetime=True; CHARSET=latin1"
        cnnMYSQL.Open() ' abre la conexion con la bd
        Catch ex As MySqlException
        End Try
    End Sub

#End Region 

Public Sub consulta_non_query(ByVal consulta As String) 

'Este metodo recibe como parametro la consulta completa y sirve para hacer INSERT, UPDATE Y DELETE 
conexion.ConnectionString = str_conexion 
cmd = New SqlCommand(consulta, conexion) 
conexion.Open() 
Try 
cmd.ExecuteNonQuery() 

MsgBox("La operacion se realizo con exito!", MsgBoxStyle.Information, "Operacion exitosa!" ) 
Catch ex As Exception 
MsgBox("Error al operar con la base de datos!", MsgBoxStyle.Critical, "Error!" ) 
End Try 
conexion.Close() 
End Sub 

Public Function consulta_reader(ByVal consulta As String) As DataTable 

'Este metodo recibe como parametro la consulta completa y sirve para hacer SELECT 
Dim dt As New DataTable 
conexion.ConnectionString = str_conexion 
cmd = New SqlCommand(consulta, conexion) 
conexion.Open() 
Try 
dt.Load(cmd.ExecuteReader()) 

Catch ex As Exception 
MsgBox("Error al operar con la base de datos!", MsgBoxStyle.Critical, "Error!" ) 

End Try 
conexion.Close() 
Return dt 

End Function 

Public Sub cargar_lista(ByRef lista As ListBox, ByVal consulta As String, ByVal valueMember As String, ByVal displayMember As String) 
Dim dt As New Data.DataTable 
conexion.ConnectionString = str_conexion 
cmd = New SqlCommand(consulta, conexion) 
conexion.Open() 

Try 
dt.Load(cmd.ExecuteReader()) 

lista.DataSource = dt 
lista.ValueMember = valueMember 
lista.DisplayMember = displayMember 
Catch ex As Exception 
MsgBox("Error al operar con la base de datos!", MsgBoxStyle.Critical, "Error!" ) 

End Try 
conexion.Close() 
End Sub 

Public Sub cargar_combo(ByRef combo As ComboBox, ByVal consulta As String, ByVal valueMember As String, ByVal displayMember As String) 
Dim dt As New DataTable 
conexion.ConnectionString = str_conexion 
cmd = New SqlCommand(consulta, conexion) 
conexion.Open() 

Try 
dt.Load(cmd.ExecuteReader()) 

combo.DataSource = dt 
combo.ValueMember = valueMember 
combo.DisplayMember = displayMember 
Catch ex As Exception 
MsgBox("Error al operar con la base de datos!", MsgBoxStyle.Critical, "Error!" ) 

End Try 
conexion.Close() 
End Sub 
 Public Function ObtenerDatos(ByVal consulta As String)
        Dim valorRetorno As Integer
        Try
            'connectingMY()
            Dim cmd As New SqlCommand
            cmd.CommandType = CommandType.Text
            cmd.Connection = cnnSQL
            cmd.CommandText = consulta
            valorRetorno = cmd.ExecuteScalar()

        Catch ex As Exception
            ' MsgBox("Error en BD")
        End Try
        Return valorRetorno
    End Function
Public Function verificar_existencia(ByVal consulta As String) As Boolean 


'Devuelve true si existe, entonces no grabamos, o devuelve false si no existe entoinces debemos grabar. 
Dim dt As New DataTable 
conexion.ConnectionString = str_conexion 
cmd = New SqlCommand(consulta, conexion) 
conexion.Open() 
Try 
dt.Load(cmd.ExecuteReader()) 

Catch ex As Exception 
MsgBox("Error al operar con la base de datos!", MsgBoxStyle.Critical, "Error!" ) 

End Try 

conexion.Close() 

If dt.Rows.Count > 0 Then 
Return True 
Else 
Return False 
End If 
End Function 

End Class 

Caja para codigos en tu post

Bien pues he estado investigando un poco acerca de algun script que me permitiera poner mis fragmentos de codigo de una manera mas ordenada y he encontrado esto por ahora SyntaxHighlighter que permite mostrar el codigo de esta manera 

Caja 
    para  
        mostrar  
               codigo

Bueno pero si quieren saber como insertarla en sus entradas les dejo el link al post de Diego "El-Abacabu"  y ahí encontraran todos los detalles.

Imagenes

Guardar imágenes desde una aplicación en VB.NET    e-coffeetech

____________________________________________________________________________

Abrir el Visualizador de imagenes de windows con una imagen en especifico

Process.Start("c:\windows\system32\rundll32.exe", String.Format("C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen {0}", imagePath))

En este codigo solo cambiara imagePath, que es una variable de tipo String donde se guardara la ruta completa de la imagen.

Probado con Windows7

____________________________________________________________________________

Convertidores de codigo

Bueno aquí pongo algunos convertidores que me he encontrado en la red la verdad aun no he comprobado si funcionan del todo o no pero tienen buena pinta, así que los probare y ya veré después que tal.

Convertir de C# a Visual Basic .NET del guille

http://www.elguille.info/NET/WebServices/deCSaVB_web.aspx

Este lo enconte en el blog de Sergio

http://www.carlosag.net/Tools/CodeTranslator/


Y este otro en un foro de ayuda de Microsoft


http://www.developerfusion.com/tools/convert/csharp-to-vb/




La verdad espero que alguno me sirva sino habré perdido mi tiempo un poco, pero bueno a probarlos.

Boton examinar visual basic.net

Dentro de nuestro proyecto debebos agregar un boton "EXAMINAR" y dentro de este boton debemos agregar el siguiente codigo y modificar ciertas partes para que se adecue a nuestras necesidades

      Dim openFD As New OpenFileDialog()
      With openFD
       .Title = "Seleccionar archivos de Backup"
       .Filter = "*.sql|*.sql"  'filtro para el tipo de archivos a mostrar
       .Multiselect = False
          If .ShowDialog = Windows.Forms.DialogResult.OK Then
           Me.txtbackup.Text = .FileName   'Txt e almacenara la ruta del archivo
          End If
      End With