Springen naar inhoud


- - - - -
VS 2015

Emoticons In Een Listview Zien.

VS2015

  • Log in a.u.b. om te beantwoorden
Er zijn 11 reacties in dit onderwerp

#1 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 17 april 2018 - 12:14

Beste mensen,

Ik heb een listview in mijn form staan.
Daar wil ik emticons tonen die ik allemaal in een map heb staan.
Dit is mijn code.:
Visual Basic Code:
Dim dir As New IO.DirectoryInfo(Application.StartupPath & "\emoticons\")
' populate the listbox controls
For Each file As FileInfo In dir.GetFiles
' set the image index according extension
Dim imageindex As Integer = 0
Dim filetype As String = String.Empty
Select Case file.Extension
Case ".png", ".jpg", ".bmp", ".gif"
filetype = "Image"
imageindex = 1
End Select

' Details view
Dim DetailsItem As ListViewItem = ListView1.Items.Add(file.Name, imageindex)
DetailsItem.SubItems.Add(file.LastWriteTime)
DetailsItem.SubItems.Add(filetype)
DetailsItem.SubItems.Add(String.Format("{0:n2} KB", Convert.ToDouble(file.Length / 1024)))

' LargeIcon view
Dim TileViewItem As ListViewItem = = ListView1.Items.Add(file.Name, imageindex)

Next

Als ik het progje start zie ik dit.
Bijlage  emoticons.png   4,23K   2 downloads

Maar nu komt het probleem wat ook in de foto te zien is.
*Ik zie overal dezelfde smileys terwijl ze allemaal anders zijn.
*Ik zie tekst ernaast staan , die wil ik weg hebben.
*Bewegende smileys werken die hier ook in?

Wie kan mij hiermee helpen?
Alvast bedankt.

[update]
Met de volgende heb ik het werkend, ik zie de emoticons wat in de map staan, alleen zie ik wel nog de naam erbij.
Visual Basic Code:
Dim j As Integer = 0

		Dim dir As New IO.DirectoryInfo(Application.StartupPath & "\emoticons\")
		' populate the listbox controls
		For Each file As FileInfo In dir.GetFiles
			' set the image index according extension
			Dim imageindex As Integer = 0
			Dim filetype As String = String.Empty
			Select Case file.Extension
				Case ".png", ".jpg", ".bmp", ".gif"
					filetype = "Image"
					imageindex = j
					j = (j + 1)
			End Select
			' Tile view
			Dim TileViewItem As ListViewItem = ListView3.Items.Add(file.Name, imageindex)


		Next


#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht 03 dec 2018 19:54
  • LocatieMechelen (BE)

Geplaatst op 18 april 2018 - 19:06

je listview.view aanpassenVisual Basic Code:
ListView1.View = View.LargeIcon


#3 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 19 april 2018 - 13:53

nope helaas hetzelfde effect.

#4 Johnny

Johnny

    Senior Developer

  • Leden
  • PipPipPip
  • 192 berichten
    Laatst bezocht 16 nov 2018 14:19

Geplaatst op 19 april 2018 - 17:39

Je kan de overload gebruiken:

Visual Basic Code:
Dim TileViewItem As ListViewItem = ListView3.Items.Add(file.Name,"", imageindex) 


#5 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht 03 dec 2018 19:54
  • LocatieMechelen (BE)

Geplaatst op 19 april 2018 - 18:39

Wat Johnny heeft geschreven :), het volgende heb ik geschreven om te testen
Visual Basic Code:
		Dim dir As New DirectoryInfo(Application.StartupPath & "\emoticons\")

		'-set listview options
		With ListView1
			.SmallImageList = ImageList1
			.LargeImageList = ImageList1
			.View = View.LargeIcon
		End With
		'-populate the listbox controls  
		For Each file As FileInfo In dir.GetFiles
			'-set the image index according extension  
			Select Case file.Extension
				Case ".png", ".jpg", ".bmp", ".gif"
					ImageList1.Images.Add(file.Name, Bitmap.FromFile(Path.Combine(dir.Name, file.Name)))
					ListView1.Items.Add(file.Name, "", file.Name)
			End Select
		Next


#6 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 20 april 2018 - 12:17

Die overload  is de oplossing , thx Johnny en Damic.
Ik heb dus nu alles netjes in orde op 1 dingetje na.
Als ik dus op een smiley klik wil ik dat die smiley in mijn ritchtextbox word geplakt, hoe krijg ik dit dan voor elkaar?
Let wel op , mijn slieys worden in een nieuwe form getoond en mijn ritchtextbox staat in de main form.

Ik had een mooi voorbeeld gezien die ik wel wilde gebruiken maar tis in C#
Heb het al geconverteerd maar dan werkt het niet helaas.
https://www.codeproj...-up-a-window-to

#7 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht 03 dec 2018 19:54
  • LocatieMechelen (BE)

Geplaatst op 20 april 2018 - 21:12

in de main een public sub maken en dan de emoticon naam doorgeven van het ene form naar het andere

Visual Basic Code:
public sub EmotIconAdd(byval filename as string)
'semi pseudo code
rtb.imageadd(path.combine(emoticonsfolder , filename))
end sub


#8 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht 03 dec 2018 19:54
  • LocatieMechelen (BE)

Geplaatst op 21 april 2018 - 17:07

Bericht bekijkenpascalbianca, op 20 april 2018 - 12:17, zei:

Ik had een mooi voorbeeld gezien die ik wel wilde gebruiken maar tis in C#
Heb het al geconverteerd maar dan werkt het niet helaas.
https://www.codeproj...-up-a-window-to
Jamaar zo niet he, iets zeggen en dan niet zeggen wat er mis gaat, dat is niet vbib hé :( Ik heb trouwens een bijna werkende versie :grin:

Bijgevoegde Bestanden



#9 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 25 april 2018 - 07:23

Gelukkig weet ik hoe het hier in vbib werkt, zit ik lang genoeg voor hier ;)  maar het stikte van de fouten na conversie en dus ook teveel om het hier op te noemen.

#10 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht 03 dec 2018 19:54
  • LocatieMechelen (BE)

Geplaatst op 25 april 2018 - 17:19

Stukje per stukje doen, dat werkt wel ;)

#11 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 26 nov 2018 06:49
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 01 mei 2018 - 15:22

Ja wat ik heb werkt nu naar behoren, zit alleen met 1 dingetje op mijn maag.
De emticons worden vanuit de keuze lijst netjes in de ritchtextbox gezet maar kan men het formaat van het te plakken emticons ook aanpassen? vind ze nogal klein.

#12 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 645 berichten
    Laatst bezocht 03 dec 2018 19:54
  • LocatieMechelen (BE)

Geplaatst op 01 mei 2018 - 20:33

Dat moet kunnen :)

mmh dit zal niet meer werken zeker: https://www.planet-s...=41311&lngWId=1





Ook met taq VS 2015, VS2015 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VS 2015] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)