Mensajes

en la pagina de microsoft hay una aplicacion el "Code Advisor for visual basic 6.0" no estoy seguro de lo que hace pero creo que analiza el código y dice que errores puede haber al emigrar al .net

esto creo que se hace asi:


if  app.PrevInstance then
   'Una instancia del exe ya esta abierta
    end
else
....
end if

según el primer post, lo unico que faltaria seria que en un Command pongas

Código [Seleccionar] Expandir

i = shell(text1.text, vbNormalFocus)

para que te ejecute la aplicación, de eso de que quieres meterle más controles pues es solo cuestión de usar la imaginación para ver que es lo que quieres que haga y donde poner el código

pues puedes meter la imagen en un control "Image" y le pones la propiedad Stretch = true

a ver ya no entendi bien lo que estas haciendo. Quieres tener una imagen de fondo en el MDIForm?, con el código que pusiste deberia estar bien,  a menos que el control Image no este dentro del Picture   

imagino que lo que quieres es hacer más o menos esto


este es un MDIForm y la imagen la tengo en un picturebox y la redimensiono con el código que te pase, que si lo analizas es lo mismo que tu tienes

  mmmm esto es lo que se me ocurre

do
    i = inStr(1,cadena," ",vbTextCompare)
    if i > 0 then cadena = mid(cadena,1, i-1) & "+" & mid(cadena, i+1, len(cadena))
loop until i = 0

ya se ha tratado varias veces el tema, busca en el foro como cambiar una imagen BMP a jpg

y porque no pones un picture box, dentro del PictureBox un ImageBox con la propiedad Stretch = true y usas los eventos Resize del form y del picture para poner el tamaño de la imagen

en las propiedades de los controles pones
Picture1:
Aling = 3

Image1:
Stretch = true

Private MDIForm_Resize()
   picture1.width = me.scalewidth
end sub

Private sub Picture1_Resize()
   Image1.with = picture1.ScaleWidth
   Image1.Height = picture1.ScaleHeight
end sub

la verdad esque agarre pedazos de codigo de un programa que estoy haciendo, ya lo depure y quedo asi:


Option Explicit

Private Sub GuardarPath(cadena As String)
    Dim f As Long, r As String * 250
    r = cadena
    f = FreeFile
   
    Open App.Path + "\path.txt" For Random As #f Len = Len(r)
    Put #f, 1, r
    Close #f
End Sub

Public Function AbrirPath() As String
    Dim f As Long, aux As String * 250
   
    f = FreeFile
    Open App.Path + "\path.txt" For Random As #f Len = 250
    Get #f, 1, aux
    AbrirPath = aux
    Close #f
   
End Function

Private Sub Form_Load()
    Text1.Text = AbrirPath
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Check1.Value <> 0 Then GuardarPath (Text1.Text)
End Sub


esto solo copialo a tu aplicación, ya no te debe de dar errorres.

lo que hace esque cuando abres el form busca un archivo "path.txt" guardado en el directorio de la aplicación, si no lo encuantra lo crea, y pone su contenido en el text1, al darle cerrar guarda el contenido del text1 en el archivo path.txt, supongo que el path de "C:\Arhivos de Programa\Aplicacion\Aplicacion.exe " esta en text1, sino solo cambia los nombres de los controles



espero te sirva...... saludos!!!

pues lo que yo he hecho es lo siguiente:


dim Consulta as String

Consulta = "SELECT * FROM Tabla "


if checkbox1.Value = 1 then consulta = consulta & " Nombre = '" & trim(text1.text) & "', "
if checkbox2.Value = 1 then consulta = consulta & " Apellidos = '" & trim(text2.text) & "', "
if checkbox3.Value = 1 then consulta = consulta & " Alias = '" & trim(text3.text) & "'"

if right(consulta,2) = ", " then consulta = mid(consulta, 1, len(consulta)-2)

consulta = consulta & ";"

y con eso queda listo, a ver si te sirve