Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


If sats som inte stämmer.(LÖST)

Postades av 2002-07-24 18:29:45 - Benni Svensson, i forum visual basic - allmänt, Tråden har 2 Kommentarer och lästs av 449 personer

Via en TreeView1_NodeClick
<code>
Dim frmForm As frmAlbum
Set frmForm = New frmAlbum
frmForm.ShowAlbum Node.Text, vbModal</code>

så kommer jag till en ny form för att visa vad jag klickade på.

<code>
Private Sub Form_Load()
FormCenter Me
eInfo.Caption = mAlbumName
frmAlbum.Caption = mAlbumName
VadSkickas
End Sub

Public Sub ShowAlbum(AlbumName As String, Optional Modal, Optional Owner)
mAlbumName = AlbumName
Me.Show Modal, Owner
End Sub
</code>
Nu vill jag kunna avgöra var jag klickade:
<code>
Sub VadSkickas()
SQL = "Select * FROM t_Album WHERE Album='" & mAlbumName & "'"
Set Rst = Con.Execute(SQL)
If Rst.EOF Then
MsgBox "En låt"
Else
MsgBox "Ett Album"
End If
End Sub
</code>
Oavsett var jag klickar, så första gången så kommer den först MsgBoxen upp, sedan den andra.
Klickar jag en gång till så blir det rätt, men jag vill ha det rätt ifrån början.
Hu skall jag lösa det???



Svara

Sv: If sats som inte stämmer.

Postades av 2002-07-24 18:54:36 - Andreas Hillqvist

Problemet är att du anropar frmAlbum i Form_Load:
Försök med:
<code>
Private Sub Form_Load()
FormCenter Me
eInfo.Caption = mAlbumName
Me.Caption = mAlbumName
VadSkickas
End Sub

</code>
När du sätter caption för frmAlbum laddar du den instansen därav två msgbox'ar.<br>
<br>
Har ett litet tips när du arbetar med listview. Skapa en nyckel med ett prefix och räknaren:
<code>

Const PrefixSong = "S"
Const PrefixAlbum = "A"

Private sub Form_Load
'Öppna recordset
'Lägg till alla songer:
Do Until rsTemp.EOF
ListView1.Listitems.Add , PrefixSong & rsTemp("SongID"),"" & rsTemp("SongTitle")
rsTemp.MoveNext
Loop

'Öppna recordset
'Lägg till alla album:
Do Until rsTemp.EOF
ListView1.Listitems.Add , PrefixAlbum & rsTemp("AlbumID"),"" & rsTemp("AlbumTitle")
rsTemp.MoveNext
Loop
End Sub

Private Sub ListView1_Click(ListItem As ListItem)
Select Case Left(ListItem, 1)
Case PrefixSong
Msgbox "En låt"
Case PrefixAlbum
Msgbox "Ett Album"
End Select
End Sub
</code>


Svara

Sv: If sats som inte stämmer.

Postades av 2002-07-24 22:21:00 - Benni Svensson

Tack Andreas, pålitlig och påläst som alltid.
Det har ordnat sig nu. När jag skippade MsgBoxarna och la in det som sökord i n SQL, så var allt klart.
Jag skall dock använda ditt tips till någonting annat.
Än en gång, tack


Svara

Nyligen

  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo
  • 14:25 Tips på verktyg för att skapa QR-k
  • 14:23 Tips på verktyg för att skapa QR-k
  • 20:52 Fungerer innskuddsbonuser egentlig

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 569 607
27 953
271 705
666
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies