Saber de donde a sido llamado

Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

Foro

Web

Blog

25 Diciembre 2024, 03:44 am

Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

Saber de donde a sido llamado

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Saber de donde a sido llamado (Leído 1,453 veces)

SheKeL_C$

Desconectado

Mensajes: 549

_-=[Sh3K3L_C$]=-_

Saber de donde a sido llamado

« en: 7 Marzo 2006, 22:36 pm »

Estoy trabajando en un proyecto en el q necesito saber como podria indiquarme el programa desde donde a sido llamado(m refiero a un boton o funcion o lo q sea),este es un ejemplo resumido d lo q seria,

Código:

Private Sub Command1_Click()
Call Command3_Click
End Sub

Private Sub Command2_Click()
Call Command4_Click
End Sub

Private Sub Command3_Click()
' si hubiera sido llamo de el boton 1 q el box sea 1, y si fuera por el 2 pues 2
MsgBox
End Sub

tmb podria es coger y poner en total 4 botones, pero m gustaria ahorrar codigo. con 4 seria asi

Código:

Private Sub Command1_Click()
Call Command3_Click
End Sub

Private Sub Command2_Click()
Call Command4_Click
End Sub

Private Sub Command3_Click()
MsgBox "1"
End Sub

Private Sub Command4_Click()
MsgBox "2"
End Sub


	En línea

.Slasher-K.

Desconectado

Mensajes: 79

Re: Saber de donde a sido llamado

« Respuesta #1 en: 7 Marzo 2006, 22:40 pm »

Una variable global en un módulo por ejemplo.

Módulo basMain.bas

Código:

Public iCaller As Integer

Formulario frmMain

Código:

Private Sub Command1_Click()
  iCaller = 1
  Call Command3_Click
End Sub

Private Sub Command2_Click()
  iCaller = 2
  Call Command4_Click
End Sub

Private Sub Command3_Click()
  Call MsgBox("Procedimiento llamado desde botón " & iCaller)
End Sub

Private Sub Command4_Click()
  Call MsgBox("Procedimiento llamado desde botón " & iCaller)
End Sub


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	saber todos los paquetes que han sido instalados manualmente GNU/Linux	[u]nsigned	1	1,929	22 Marzo 2012, 19:57 pm por mael0c
	Se puede saber en que PC ha sido insertada mi USB? Programación General	LukaCrosszeria	1	1,820	19 Junio 2013, 20:23 pm por El Benjo
	Crean un algoritmo “made in spain” para saber dónde ha sido grabado cualquier... Noticias	wolfbcn	0	1,803	11 Febrero 2015, 18:23 pm por wolfbcn
	Cómo activar el pegado de texto en los campos donde ha sido bloqueado Noticias	wolfbcn	0	1,467	28 Abril 2016, 19:00 pm por wolfbcn
	Es posible saber si los metadatos de un archivo han sido modificados? Dudas Generales	Unvoid	1	3,433	16 Noviembre 2022, 15:59 pm por Elektro Enjuto