Visual Basic - Documentos me quedan minimizados al momento de abrirlos desde data grid VB 6.0

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 36 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Documentos me quedan minimizados al momento de abrirlos desde data grid VB 6.0

Publicado por wilmer (1 intervención) el 16/09/2018 18:35:54
Ante todo gracias por el tiempo que se toman en atender nuestras dudas mi problema es el siguiente tengo 2 formularios un MDI y un Form1 también una base en Access desde donde jalo la información llamada datos.mdb, en el Form1 tengo un DataGrid y un Text1 .

Ahora en el Form Load hago esta programación para poder abrir la base de datos y cargarla al DataGrid1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 
'conectar el adodc1 con la tabla
Adodc1.CursorLocation = adUseClient
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\datos.mdb; persist security info=False"
'conectar el adodc1 con la tabla de usuarios
Adodc1.RecordSource = "SELECT * FROM clientes order by cliente"
Adodc1.Refresh 'actualizar los datos del adodc1
'asignar el Adodc1 al Datagrid1
Set DataGrid1.DataSource = Adodc1
FormatoDataGrid 'dar formato al data grid
'marcar una opcion como busqueda predeterminada
Text1.Text = " "
End Sub

Luego de esto en el DataGrid1 hago esta programación, para que al momento de hacer doble clic en alguno de los registros me habrá un documento de Word según la ruta que tengo en el Text1

1
2
3
4
5
6
7
8
9
10
11
Private Sub DataGrid1_DblClick()
Form1.Text1.Text = DataGrid1.Columns(7).Text
On Error GoTo error
Dim wb As Object
Set wb = CreateObject("Word.Basic")
wb.FileOpen Name:=Text1.Text
wb.AppShow
Exit Sub
error:
MsgBox "Error el documento no se encuentra en la carpeta agregelo nuevamente", vbCritical, "Modificar"
End Sub

Ahora el problema es que al momento de abrir el documento lo abre minimizado no entiendo porque

Una cosa mas programe esto en el MDI para que no aparezcan los botones de minimizar maximizar y cerrar

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Const WS_SYSMENU = &H80000
Private Const GWL_STYLE = (-16)
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
 
Private Sub MDIForm_Load()
Dim L As Long
' Optiene en un long las caracteristicas de La ventana
L = GetWindowLong(Me.hwnd, GWL_STYLE)
L = L And Not (WS_SYSMENU)
L = SetWindowLong(Me.hwnd, GWL_STYLE, L)
End Sub

Luego de eso lo quite y siguió con lo mismo espero puedan ayudarme por favor no puedo solucionar este problema y les agradecería infinitamente si pueden darme una ayuda muchas gracias que tengan buen día
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