Visualizzazione dei risultati da 1 a 4 su 4
  1. #1
    Utente di HTML.it
    Registrato dal
    Apr 2001
    Messaggi
    327

    Proprietà MSHFlexGrid & VB6

    Ciao raga... mi sapreste dire qual'è la proprietà del controllo MSHFlexGrid, per controllare se l'elenco è vuoto o meno?
    Mi spiego meglio: devo appunto controllare (in un determinato momento) se le celle della MSHFlexGrid sono vuote oppure no.
    Non so quale sia l'evento ne la proprietà per fare ciò.
    Vi faccio un altro esempio del tipo: se voglio fare questo controllo su una textbox questo sarà il codice:

    code:
    -----------------------------------------------
    Private Sub TxtBox_Change()
    if TxtBox.Text="" Then
    'fai questo...
    else
    '...altrimenti quest'altro
    end if
    End Sub
    ------------------------------------------------

    Quindi la stessa cosa su un controllo MSHFlexGrid....è possibile?

    Grazie 1000 x l'attenzione.
    Errare è umano, Perseverare è Diabolico.
    sapiente è colui ke sa di non sapere.

  2. #2
    Utente di HTML.it
    Registrato dal
    Apr 2001
    Messaggi
    327
    ...aspetto il Vs aiuto....
    Errare è umano, Perseverare è Diabolico.
    sapiente è colui ke sa di non sapere.

  3. #3
    Utente di HTML.it
    Registrato dal
    Nov 2004
    Messaggi
    34
    codice:
    Option Explicit
    
    Private Sub Form_Load()
    
      Dim R                           As Integer
      Dim C                           As Integer
    
      R = 0
      C = 0
      If Not CeckGrid(R, C) Then
        MyGrid.Row = R
        MyGrid.Col = C
        MyGrid.CellBackColor = &HFF& 'Colora di rosso la cella vuota
      End If
    
    End Sub
    
    '------------------------------------------------
    'Controlla se tutte le celle della mia griglia sono vuote 
    'Se False ritorna la posizione della cella vuota
    '------------------------------------------------
    Private Function CeckGrid(ByRef Row As Integer, ByRef Col As Integer) As Boolean
    
      Dim i                           As Integer  'Row Counter
      Dim y                           As Integer  'Col Counter
      
      CeckGrid = True   'Default Value
      
      For i = 0 To MyGrid.Rows
        Row = i
        For y = 0 To MyGrid.Cols
          Col = y
          If MyGrid.Text = "" Then
            Row = i
            Col = y
            CeckGrid = False
            Exit Function
          End If
        Next
      Next
    
    
    End Function
    Per rendere l'idea

  4. #4
    Utente di HTML.it
    Registrato dal
    Apr 2001
    Messaggi
    327
    Ok......resa l'idea!!!!
    Errare è umano, Perseverare è Diabolico.
    sapiente è colui ke sa di non sapere.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.