|
Dobrý den, zajímalo by mě, zda je možné udělat něco takového:
Private sub name1(sender as object,e as eventArgs)
if not typeOf sender is checkBox then
msg("Sender is not a type of checkBox "+vbNewLine+ _
'sub.name')
exit sub
end if
.....
end sub
Sub.name má vyjádřit, že bych rád získal v takové proměnné "name1". Tak bych mohl mít kontrolu nad programem, kde došlo k chybě. Chápu, že si můžu v každé aplikaci definovat subName proměnnou ale když název té procedury změním tak musím změnit i konstantu subName. Díky, PetrS
|