Mensajes

La pagina fuente no, es C#, que es facilmente convertible a VB.NET

la linea

Código (vbnet) [Seleccionar] Expandir

AddHandler SystemEvents. SessionEnding, new EventHandler(AddressOf Cerrar)
La puedes poner dentro la funcion Main o donde quieras ...es para registrar y ver el evento cuando se apaga la PC. En este caso al nombre del procedimiento que manejara el evento le puse Cerrar 

Espero que te sirva 

Hola!

puedes poner un manejador al evento cuando cierra sesion y finalizar el programa. Ej

Código (vbnet) [Seleccionar] Expandir


Imports Microsoft.Win32

'.......
AddHandler SystemEvents. SessionEnding, new EventHandler(AddressOf Cerrar)
'.......
Sub Cerrar(ByVal sender As Object, ByVal e As EventArgs)
    ' Liberar recursos
    End
End Sub


Fuente: http://www.indalcasa.com/programacion/dotnet-csharp/controlar-eventos-de-windows-en-csharp/

[EDIT:]

Hola!

hace tiempo que no uso vb6 jeje...pero creo que estas comparando mal (CREO eh! )

Código (vb) [Seleccionar] Expandir

Split(datos, "|")(6)
El split te devuelve un array de strings, que yo sepa no se puede comparar con True o False porque estos convertidos a string devuelven "Verdadero" y "Falso" Respectivamente, lo mejor seria convertir eso a ceros y unos (1 - verdadero, 0 - falso) entonces te quedaria algo asi y seria mas seguro

Código (vb) [Seleccionar] Expandir

If ((Split(datos, "|")(6)) = "1") And ((Split(datos, "|")(5)) = "0") Then
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
End If

por ultimo muestra el condicional y los condicionales por msgbox

Código (vb) [Seleccionar] Expandir

Msgbox Split(datos, "|")(6)
MsgBox ((Split(datos, "|")(6)) = True)

Saludos!!

EDIT: La respuesta de Karcrack tambien es otra solucion 

Hola a todos!

Bueno, la pregunta es simple pero complicada  Hay alguna forma por codigo para saber si una base de datos X tiene acceso protegido por contraseña? (para incluir en el ConnectionString "user=***;pwd=***;")

No es de urgencia, pero me surgio la duda jeje..... y nunca la he visto en algun programa jeje.....de ultima (se me ocurre) intentar un conection string sin autenticacion y si falla, pedir la autenticacion 

Bueno.....desde ya, muchas gracias

[EDIT:]

Cambie un poco las declaraciones, use estas

Código (vbnet) [Seleccionar] Expandir

Dim bdc As OleDbConnection
Dim bdcm As OleDbCommand
Dim bdr As OleDbDataReader
Dim bda As OleDbDataAdapter
Dim ds As DataSet

En el boton que abre la conexion a la base de datos pon lo siguente

Código (vbnet) [Seleccionar] Expandir

' Abre la conexion
bdc = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & txtBase.Text)
bdc.Open()

' Consulta para devolver las tablas
bdcm = New OleDbCommand("SELECT Name FROM MSysObjects WHERE ParentId = (SELECT Id FROM MSysObjects WHERE Name = 'Tables')", bdc)
bdr = bdcm.ExecuteReader()


' Lee las tablas
While bdr.Read()
   ' Se usa el Select Case para saltear las tablas del sistema y solo mostrar las creadas por un usuario
   Select Case bdr("Name").ToString()
       Case "MSysAccessObjects"
       Case "MSysAccessXML"
       Case "MSysACEs"
       Case "MSysObjects"
       Case "MSysQueries"
       Case "MSysRelationships"
       Case Else
           lstTablas.Items.Add(bdr("Name").ToString())
   End Select
End While

y el evento DoubleClick de la Lista use:

Código (vbnet) [Seleccionar] Expandir

' Tiene que haber al menos uno seleccionado, sino tira error
If lstTablas.SelectedItems.Count > 0 Then
   bda = New OleDbDataAdapter("SELECT * FROM " & lstTablas.SelectedItem.ToString(), bdc)
   ds = New DataSet()
   bda.Fill(ds, lstTablas.SelectedItem.ToString())
   dg.DataSource = ds
   dg.DataMember = lstTablas.SelectedItem.ToString()
End If

tengo la aplicacion de ejemplo si despues la quieres...te la paso

EDIT: 1) Los ".ToString()" no son necesarios (yo tengo option strict on)
2) Para leer de la tabla MSysObjects debes ponerles los permisos de lectura de la base de datos, sino no funcionara. Para hacerlo en Access vas al menu Herramientas -> Seguridad -> Permisos de usuario y grupo.

Seleccionas el usuario (o dejalo en adminstrador) y en "Nombre del objeto" buscas "MSysObjects" y en la sección de "Permisos" activas "Leer datos"

ahora si....Espero que te sirva!!!

Utiliza esta consulta para obtener todas las tablas

Código (sql) [Seleccionar] Expandir

SELECT Name FROM MSysObjects WHERE ParentId = (SELECT Id FROM MSysObjects WHERE Name = "Tables")

Obtienes todas las tablas de la base de datos. Es una tabla oculta, para verla ve al menu Herramientas -> Opciones -> Ver objetos del sistema.

Espero que te sirva!!!

Hola.

Es simple la respuesta... lo resuelves con una sentencia IF dentro del control

Código (vbnet) [Seleccionar] Expandir

If text1.Text = "dir1" Then
    dba = new OleDbDataAdapter("select * from dir1", dbc)
    ' actualizaElse
    dba = new OleDbDataAdapter("select * from dir2", dbc)
End If
' Aca debes poner el codigo que usas para mostrar la tabla



espero que te sirva!!!

Como harias el sistema de votacion con "estrellas"?

Haría un log de las canciones más reproducidas y luego con shapes de acuerdo a una estadística los mostraría.

Se me ocurrio que mejor que usar controles de usuario  con picturebox'es dentro que sean de una estrella vacia y estrellas rellenas.....es como lo planteo ahora

Estoy mas en el aire q cuando empeze, creo q este proyecto no lo terminare...

hay que tener animo  abra que insertar codigos aca y vos probarlo

 

(o usar Options Buttons como en el web)

Ahi estas usando componentes propios de visual basic 

....si hay que usar visual basic...no podemos usar sus controles 
yo me referia a los controles RadioButton que es como se rankea en el web 

Quisiera ver que programes la libreria para leer archivos mp3 con visual basic 

jajaja no no...tampoco para tanto 

En fin... Repito... Solo es cuestión de utilizar los componentes propios de vb .net y simular un supuesto reproductor.

http://www.startvbdotnet.com/controls/radio.aspx
Como harias el sistema de votacion con "estrellas"?

Hola, aportare mis ideas 

En la universidad si te lo piden así. Ahí aprenden más que porgramar, es saber buscarse la vida.

Lo se, pero creo que en un instituto donde te enseñan sintaxis de lenguajes, y no a programar, no te pueden pedir que reinventes la rueda  y menos en basic ya que es un lenguaje muy limitado. En cuanto a su proyecto lo único que puedo pensar es que se parecerá al reproductor de windows en cuanto a apariencia.

Salu2!

no necesariamente tendra que ser asi 

estuve pensando sobre las estrellas y lo mejor que se me ocurrio fue medirlas con un control slider que vaya de los valores 1 - 5 (o usar Options Buttons como en el web) pero ¿Cómo guardamos la clasificación? se me ocurren 2 ideas: una guardarlas en una colección serializada ó guardarlos en los tags ID3 de los mismos mp3  (vease: http://www.mp3car.com/vbulletin/software-software-development/123279-vb6-module-read-write-id3-tags-attached.html)

muy buen proyecto para hacer 


Saludos