Visual Basic - ayuda urgente sobre duda para extraer la ruta

Life is soft - evento anual de software empresarial
 
Vista:

ayuda urgente sobre duda para extraer la ruta

Publicado por fernandmo muñoz (2 intervenciones) el 03/11/2009 19:46:40
ayuda por favor
saludos a todos les escribo pidiendoles su ayuda sobre lo siguiente.
lo que pasa es que estoy creando un aplicacion de visualbasic 6.0 , y quiero que en la partesuperior derecha de un form se visualize una foto, quiero que esa foto a insertar pueda ser seleccionado por el usuario .( para posteriormente imprimir el contenido del form)

pero lo que quiero es hacer como lo hace el asistente de impresion de windows, en donde el usuario busca la ubicacion de la foto que desea imprimir , la selecciona y le da click derecho y en el menu que aparece selecciona la opcion imprimir.

algo asi quiero que haga en mi programa en donde el usuario busque la imagen en cual quier parte de su disco duro la seleccciones le de clik derecho, crear una opcion en el menu que aparece para que lo envie a mi aplicacion y por ultimo que aparesca en mi aplicacion

lo que pasa es que no tengo idea de como el assitente toma la ubicacion del archivo.

ok muchas gracias por su atencion
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:ayuda urgente sobre duda para extraer la ruta

Publicado por Christian (713 intervenciones) el 04/11/2009 00:03:37
Esta es la respuesta

http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-commondialog.htm
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda urgente sobre duda para extraer la ruta

Publicado por fernando muñoz (2 intervenciones) el 04/11/2009 02:47:30
ok, muchas gracias pero por lo que e visto , y al crear el programa tendria que hacer digamos un commandbutton y el usuario tendria que hacer click solo para obtener la ruta del archivo, y si resuelve parte del problema

pero lo que aun no puedo determinar como hacer para crear una opcion en el submenu ( cuando se hace click en un archivo, desde cualquier ventana de windows) y esta opcion sea la que me envie mi programa la ruta del archivo y del conjunto de archivos seleccionado por el usuario y asi el usuario ya no tendria que esta abriendo el commondialog para abrir de uno en un los archivos. ( cando sea mas de una imagen la que quiera seleccionar).

ok muchas gracias, Christian, por la repuesta y por favor sigame ayudando.
( la respuesta fue de gran ayuda)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda urgente sobre duda para extraer la ruta

Publicado por juan carlos (518 intervenciones) el 04/11/2009 06:35:50
Hola Fernando
inserta en un nuevo proyecto
un Dir1,File1,Drive1,Image1,label1,label2
crea un menu con las opciones imprimir,acerca, y salir
si deseas el ejemplo mi mail es
[email protected]
este es el codigo fuente
===========================================
Rem por si se da click en el Dir1
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Rem por si se da click en el Drive1
Private Sub Drive1_Change()
On Error GoTo fin:
Dir1.Path = Drive1.Drive
fin:
MsgBox "Unidad no disponible", 32, "Mensaje"
End Sub

Rem por si se da click en el File1
Private Sub File1_Click()
Dim a As String
Dim b As String
a = File1.Path
If Len(a) > 3 Then
b = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(b)
Label1 = b
ElseIf Len(a) < 4 Then
b = File1.Path & File1.FileName
Image1.Picture = LoadPicture(b)
Label1 = b
End If
End Sub

Rem iniciar el dir1 en el path actual
Private Sub Form_Load()
Dir1.Path = "\"
Label1.Caption = "Click derecho para imprimir"
End Sub

Rem si se da click derecho en la imagen se llama al menu opciones
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu opc
End Sub

Rem opciones de los menus
Private Sub op_Click(Index As Integer)
Dim r As String
Select Case Index
Case 1
MsgBox "imprimir"
Case 2
MsgBox "acerca del autor"
Case 3
Set Form1 = Nothing
End
End Select
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar