Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

MSFlexGrid - highlight FixedRow i FixedCol

[es] :: Visual Basic 6 :: MSFlexGrid - highlight FixedRow i FixedCol

[ Pregleda: 2392 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
91.143.217.*



+3 Profil

icon MSFlexGrid - highlight FixedRow i FixedCol04.06.2008. u 20:20 - pre 192 meseci
Kod koji objasnjava kako napraviti da kada se selektuje neka celija u MSFG-u da se oznace i odgovarajuci FixedRow i FixedCol - kao u Excelu. Takodje je dodat i kod da se upisuje neki tekst u celiju i da se brise sa backspace. Ovo sam uradio na brzinu. Mozda neko ima neku bolju ideju?

Code:
'Autor: Rajko Kuzmanovic

Option Explicit

Public red As Integer
Public kolona As Integer
Public redmemo As Integer
Public kolonamemo As Integer

Private Sub Form_Load()
    Dim n As Integer
    
    MSHFlexGrid1.Cols = 10
    MSHFlexGrid1.Rows = 10
    
    MSHFlexGrid1.BackColorFixed = RGB(239, 235, 222) 'Fiksne redove ispisuje bojom kao u excellu
    
    For n = 1 To MSHFlexGrid1.Cols - 1
        MSHFlexGrid1.TextMatrix(0, n) = Chr(Asc("A") + n - 1)
    Next n
    
    For n = 1 To MSHFlexGrid1.Rows - 1
        MSHFlexGrid1.TextMatrix(n, 0) = n
    Next n
    
End Sub

Private Sub MSHFlexGrid1_Click()
    red = MSHFlexGrid1.Row
    kolona = MSHFlexGrid1.Col
   
   'Brisanje prethodno obelezenih bocnih fiksnih kolona
    If redmemo > 0 And kolonamemo > 0 Then
        MSHFlexGrid1.Col = 0
        MSHFlexGrid1.Row = redmemo
        MSHFlexGrid1.CellBackColor = RGB(239, 235, 222)

        MSHFlexGrid1.Col = kolonamemo
        MSHFlexGrid1.Row = 0
        MSHFlexGrid1.CellBackColor = RGB(239, 235, 222)
    End If
   
    'MSHFlexGrid1.BackColorFixed = RGB(239, 235, 222) 'Brise fiksne redove belom bojom
    
    MSHFlexGrid1.Row = red
    MSHFlexGrid1.Col = kolona
    
    'Obelezavanje bocnih fiksnih kolona
    MSHFlexGrid1.Col = 0
    MSHFlexGrid1.Row = red
    MSHFlexGrid1.CellBackColor = RGB(255, 192, 111)

    MSHFlexGrid1.Col = kolona
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.CellBackColor = RGB(255, 192, 111)
    
    MSHFlexGrid1.Row = red
    
    redmemo = red
    kolonamemo = kolona
    
End Sub

Private Sub MSHFlexGrid1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then
        If Len(MSHFlexGrid1.Text) > 0 Then
            MSHFlexGrid1.Text = Left(MSHFlexGrid1.Text, Len(MSHFlexGrid1.Text) - 1)
        End If
    End If
    If KeyAscii > 31 Then
        MSHFlexGrid1.Text = MSHFlexGrid1.Text & Chr(KeyAscii)
    End If
End Sub

rgdrajko
Prikačeni fajlovi
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.214.*



+41 Profil

icon Re: MSFlexGrid - highlight FixedRow i FixedCol04.06.2008. u 21:01 - pre 192 meseci
Ako već hoćeš da "imitiraš" Excel. onda ti za početak nedostaje selekcija celog reda ili kolone (probaj), kao i selekcija opsega ćelija, a ne samo jedne (probaj).
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
91.143.217.*



+3 Profil

icon Re: MSFlexGrid - highlight FixedRow i FixedCol04.06.2008. u 22:15 - pre 192 meseci
Ok, ali za pocetak probaj i ti "bar" nesto da uradis.
rgdrajko
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.214.*



+41 Profil

icon Re: MSFlexGrid - highlight FixedRow i FixedCol04.06.2008. u 22:21 - pre 192 meseci
Ti si baš neki težak čovek. Iz nevezanog (ničim izazvan) si stavio ovaj tvoj kod koji delimično simulira Excel spreadsheet, a ja sam ti samo napomenuo da nisi obradio slučaj kada je selektovano više od 1 ćelije - da mi je ovako nešto ikada bilo potrebno veruj mi da bi ga uradio jer ja u 99% slučajeva stavljam na ES svoj kod i teško da stoji ovo tvoje:
Citat:
rgdrajko: Ok, ali za pocetak probaj i ti "bar" nesto da uradis.
 
Odgovor na temu

rgdrajko
Beograd

Član broj: 117734
Poruke: 710
91.143.217.*



+3 Profil

icon Re: MSFlexGrid - highlight FixedRow i FixedCol04.06.2008. u 23:05 - pre 192 meseci
Kada se ti salis to meni ne smeta. Salio sam se. Kod je moj, veruj mi. Znam da si dobar.
rgdrajko
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.214.*



+41 Profil

icon Re: MSFlexGrid - highlight FixedRow i FixedCol04.06.2008. u 23:11 - pre 192 meseci
Ma znam da je ovo tvoj kod, ponavljam ti da je poenta mog komentara bila u tome da ako si vec pokrenuo neku temu treba je onda zaokruziti - dao sam par stvari koje su mi prve pale na pamet a da ih nisi predvideo, a sigurno ih ima jos puno; naravno sve ovo ako je smisao ove teme bio "Kako podesiti FlexGrid da se ponasa kao Excel"

Ako je smisao teme bio: "Hej ljudi, evo ovo sam nabrzaka uradio, pa evo da podelim sa vama" hvala ti u ime svih nas.
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: MSFlexGrid - highlight FixedRow i FixedCol05.06.2008. u 00:51 - pre 192 meseci
@rgdrajko
Postoji tema http://www.elitesecurity.org/t300319-Visual-Basic-Tutorijali koja upravo služi da bi se izbeglo postavljanje novih tema svaki put kada neko nešto želi da podeli sa ostatkom foruma, a i da bi se sve lepo grupisalo na jednom mestu. Takođe, ne znam zašto skoro svaki put kada postaviš neki kod, unapred napišeš i opravdanje tipa "ovo je rađeno na brzinu". Čemu to služi ? Jel to ono kao, ako sam ovo uradio na brzinu, zamislite šta bih tek uradio da sam radio polako. Ja ne znam ko te juri. Na brzinu se radi kada imaš kratak deadline, a ovde na forumu niko nema deadline kada će nešto da postuje. Tako da ako stvarno hoćeš nekome da pomogneš, lepo sedi, zaokruži tutorijal, iskomentariši kod i postavi u gorepomenutoj temi. Naravno, pre svega toga, pročitaj pravila na toj temi kako se postavlja tutorijal.
Jedino ako nisi počeo da radiš nešto kao Excel, pa ti treba pomoć za dalje, ali koliko vidim to nisi naveo.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

[es] :: Visual Basic 6 :: MSFlexGrid - highlight FixedRow i FixedCol

[ Pregleda: 2392 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.