FormCoincidentes.frm

  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FormCoincidentes
  3. Caption = "Coincidentes"
  4. ClientHeight = 3810
  5. ClientLeft = 45
  6. ClientTop = 435
  7. ClientWidth = 6075
  8. OleObjectBlob = "FormCoincidentes.frx":0000
  9. StartUpPosition = 1 'Centrar en propietario
  10. End
  11. Attribute VB_Name = "FormCoincidentes"
  12. Attribute VB_GlobalNameSpace = False
  13. Attribute VB_Creatable = False
  14. Attribute VB_PredeclaredId = True
  15. Attribute VB_Exposed = False
  16. Option Explicit
  17.  
  18. Private cf As ClaseFormulario
  19.  
  20. Private Sub botonAceptar_Click()
  21. Dim Fila As Long
  22. Fila = listaCoincidentes.Value
  23. cf.Fila = Fila
  24. Unload Me
  25. End Sub
  26.  
  27. Private Sub botonCancelar_Click()
  28. Unload Me
  29. End Sub
  30.  
  31. Private Sub UserForm_Initialize()
  32. Me.listaCoincidentes.RowSource = direccionOrigenFila(Range("Coincidentes!A:C"))
  33. End Sub
  34.  
  35.  
  36. Public Property Get ClaseForm() As ClaseFormulario
  37. Set ClaseForm = cf
  38. End Property
  39. Public Property Set ClaseForm(ByVal vNewValue As ClaseFormulario)
  40. Set cf = vNewValue
  41. End Property
  42.  

Proinf.net