主婦と.NETと犬のぶろぐ

奥様 と プログラム と お犬様 の 楽しい日常

目次

Blog 利用状況

ニュース

書庫

日記カテゴリ

ListView(System.Windows.Forms.ListView)

.NET 1.1 の時に何故かよくお世話になったコントロールで、
2.0 になってからもごくごく単純な使い方しかしてなかったわけですが、
う~む...よくよく見てみると機能がてんこもりですね~
# 3 時間近くも遊んでたらまたソースが汚く長ったらしくなってしまった...

さて、中さんのとこ で紹介されてた VirtualMode なのですが、
CheckBoxes = True にしても、チェックボックスが出てこないのですよ。
これはこういう仕様なんでしょうか...それとも何か間違ってるのかなぁ...?

■参考文献
ListView コントロール (Windows フォーム)
ListView クラス
ListViewItem クラス

■実行画像
こてこて色々試して遊んでみた ListView
ListView
VirtualMode で描画した ListView
ListView

Public Class ListViewTest

Private m_tabControl As TabControl Private m_virtualListDataSrouce As DataTable
Private Enum SateImageKeys blackwankumaIcon wankumaIcon End Enum
Private Enum ImageKeys fujiko nakasan End Enum
Private Enum ListViewName As Integer Normal Virtual End Enum
Private Sub ListViewTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.m_tabControl = New TabControl() Me.m_tabControl.Dock = DockStyle.Fill Me.m_tabControl.TabPages.Clear() Me.Controls.Add(Me.m_tabControl)
Dim imagelst As ImageList = New ImageList() imagelst.Images.Add(ImageKeys.fujiko.ToString(), My.Resources.ふじこちゃん) imagelst.Images.Add(ImageKeys.nakasan.ToString(), My.Resources.中さん) imagelst.ImageSize = New Size(50, 50)
'' CheckBoxes = True の時に、チェックボックスの代わりに表示する画像 'Dim stateImageList As ImageList = New ImageList() 'stateImageList.Images.Add(SateImageKeys.blackwankumaIcon.ToString(), My.Resources.blackwankumaIcon) 'stateImageList.Images.Add(SateImageKeys.wankumaIcon.ToString(), My.Resources.wankumaIcon)
Dim normalPage As TabPage = New TabPage normalPage.Text = ListViewName.Normal.ToString() Me.m_tabControl.TabPages.Add(normalPage)
Dim normalLstview As ListView = New ListView() With normalLstview .Name = ListViewName.Normal.ToString() .SmallImageList = imagelst .LargeImageList = imagelst .Location = New Point(10, 30) .Size = New Size(250, 200) ' フォーカスがなくても選択されているものを強調表示しないか否か(既定:True) .HideSelection = False
'' 編集関連 .LabelEdit = True ' ユーザーによる編集を許可するか否か AddHandler .BeforeLabelEdit, AddressOf ListView_BeforeLabelEdit AddHandler .AfterLabelEdit, AddressOf ListView_AfterLabelEdit
' '' マウスポインタ関連 '' マウスポインタが置かれた時に項目またはサブ項目のテキストの外観が '' ハイパーリンクになるかどうか(既定:False) '.HotTracking = True '' マウスポインタが置かれた時に自動で選択するか否か(既定:False) '.HoverSelection = True
' '' チェックボックス関連 '' チェックボックスの表示 '.CheckBoxes = True '' チェックボックスが オフの時、blackwankumaIcon '' チェックボックスが オンの時、wankumaIcon が表示されるようになる '.StateImageList = stateImageList
' View Detail の為の設定 .Columns.Add("名前", 100, HorizontalAlignment.Center) .Columns.Add("namae", 100, HorizontalAlignment.Center) .GridLines = True .FullRowSelect = True .AllowColumnReorder = True ' ユーザーによる列の並びかえを有効にする ' View Tile の為の設定 .TileSize = New Size(80, 80)
.BeginUpdate() ' Group の追加 .Groups.Clear() Dim dogGroup As ListViewGroup = New ListViewGroup("犬") Dim humanGroup As ListViewGroup = New ListViewGroup("人間") .Groups.AddRange(New ListViewGroup() {dogGroup, humanGroup}) ' Item の追加 With .Items .Clear() .Add(New ListViewItem(New String() {"ふじこ", "fujiko"}, ImageKeys.fujiko, dogGroup)) .Add(New ListViewItem(New String() {"えでん", "eden"}, ImageKeys.fujiko, dogGroup)) .Add(New ListViewItem(New String() {"オット", "otto"}, ImageKeys.fujiko, humanGroup)) .Add(New ListViewItem(New String() {"中さん", "nakasan"}, ImageKeys.nakasan, humanGroup)) End With .EndUpdate() End With normalPage.Controls.Add(normalLstview)
Dim viewCombo As ComboBox = New ComboBox() With viewCombo .DropDownStyle = ComboBoxStyle.DropDownList .Location = New Point(10, 10) With .Items .Add(View.Details) .Add(View.LargeIcon) .Add(View.List) .Add(View.SmallIcon) .Add(View.Tile) End With .SelectedItem = normalLstview.View AddHandler .SelectedIndexChanged, AddressOf ChangeView End With normalPage.Controls.Add(viewCombo)
Dim enableGroupCheck As CheckBox = New CheckBox() With enableGroupCheck .Text = "グループ有効" .Checked = True .Location = New Point(150, 10) AddHandler .CheckedChanged, AddressOf ChangeEnableGroup End With normalPage.Controls.Add(enableGroupCheck)
' コンテキストメニュー Dim context As ContextMenuStrip = New ContextMenuStrip() normalPage.ContextMenuStrip = context Dim serchText As ToolStripTextBox = New ToolStripTextBox() serchText.TextBox.ImeMode = Windows.Forms.ImeMode.Hiragana context.Items.Add(serchText) Dim searchButton As ToolStripButton = New ToolStripButton("検索") context.Items.Add(searchButton) AddHandler searchButton.Click, AddressOf Search
' VirtualMode で描画する Dim virtualListPage As TabPage = New TabPage virtualListPage.Text = ListViewName.Virtual.ToString() Me.m_tabControl.TabPages.Add(virtualListPage)
' 表示するデータを作成 Me.m_virtualListDataSrouce = New DataTable("virtualTest") With Me.m_virtualListDataSrouce With .Columns .Add("Field1", GetType(Integer)) .Add("Field2", GetType(String)) End With End With For index As Integer = 1 To 20000 Me.m_virtualListDataSrouce.Rows.Add(New Object() {index, "test" & index.ToString()}) Next
Dim virtualLstview As ListView = New ListView() With virtualLstview With .Columns .Clear() .Add("項目1", 100, HorizontalAlignment.Left) .Add("項目2", 100, HorizontalAlignment.Left) End With .Dock = DockStyle.Fill .View = View.Details .GridLines = True .MultiSelect = True '.CheckBoxes = True ' 利かない? .FullRowSelect = True ' VirtualMode に関する設定 .VirtualMode = True .VirtualListSize = Me.m_virtualListDataSrouce.Rows.Count AddHandler .RetrieveVirtualItem, AddressOf ListView_RetrieveVirtualItem End With virtualListPage.Controls.Add(virtualLstview)
' コンテキストメニュー Dim contextForVirtual As ContextMenuStrip = New ContextMenuStrip() virtualListPage.ContextMenuStrip = contextForVirtual Dim selectedInfo As ToolStripMenuItem = New ToolStripMenuItem() selectedInfo.Text = "選択されている情報" contextForVirtual.Items.Add(selectedInfo) AddHandler selectedInfo.Click, AddressOf SelectedOut End Sub
Private Sub ChangeView(ByVal sender As Object, ByVal e As System.EventArgs) Dim lview As ListView = _ DirectCast(Me.m_tabControl.TabPages(ListViewName.Normal).Controls(ListViewName.Normal.ToString()), ListView) lview.View = DirectCast(DirectCast(sender, ComboBox).SelectedItem, View) If lview.View = View.Details OrElse _ lview.View = View.List Then lview.TopItem.Selected = True ' 先頭を選択 End If End Sub
Private Sub ChangeEnableGroup(ByVal sender As Object, ByVal e As System.EventArgs) Dim chkBox As CheckBox = DirectCast(sender, CheckBox) Dim lview As ListView = _ DirectCast(Me.m_tabControl.TabPages(ListViewName.Normal).Controls(ListViewName.Normal.ToString()), ListView) lview.ShowGroups = chkBox.Checked End Sub
' 検索 Private Sub Search(ByVal sender As Object, ByVal e As System.EventArgs) Dim btn As ToolStripButton = DirectCast(sender, ToolStripButton) Dim context As ContextMenuStrip = DirectCast(btn.Owner, ContextMenuStrip) Dim tBox As ToolStripTextBox = DirectCast(context.Items(0), ToolStripTextBox) If tBox.Text = String.Empty Then Return Dim lview As ListView = _ DirectCast(Me.m_tabControl.TabPages(ListViewName.Normal).Controls(ListViewName.Normal.ToString()), ListView) ' ListView 内を検索する Dim foundItem As ListViewItem = _ lview.FindItemWithText(tBox.Text, _ True, _ 0) tBox.Text = String.Empty If foundItem Is Nothing Then Return ' 見つかった Item を選択する foundItem.Selected = True ' 必要であればスクロールして見つかった Item を表示する lview.EnsureVisible(foundItem.Index) End Sub
' 編集モードになったとき Private Sub ListView_BeforeLabelEdit(ByVal sender As Object, ByVal e As LabelEditEventArgs) Dim lview As ListView = _ DirectCast(Me.m_tabControl.TabPages(ListViewName.Normal).Controls(ListViewName.Normal.ToString()), ListView) Dim editItem As ListViewItem = lview.Items(e.Item) Console.WriteLine("◆BeforeLabelEdit◆") Console.WriteLine("Item is " & editItem.Text) Console.WriteLine("NewValue is " & e.Label)
If editItem.Text = "中さん" OrElse editItem.Text = "nakasan" Then '' 中さんの場合編集をキャンセルする e.CancelEdit = True End If End Sub
' 編集モードをぬけたとき Private Sub ListView_AfterLabelEdit(ByVal sender As Object, ByVal e As LabelEditEventArgs) Dim lview As ListView = _ DirectCast(Me.m_tabControl.TabPages(ListViewName.Normal).Controls(ListViewName.Normal.ToString()), ListView) Dim editItem As ListViewItem = lview.Items(e.Item) Console.WriteLine("◇AfterLabelEdit◇") Console.WriteLine("Item is " & editItem.Text) Console.WriteLine("NewValue is " & e.Label) If e.Label = "baka" Then ' 編集した結果が baka の場合、編集をキャンセルする e.CancelEdit = True End If End Sub
' 仮想モードで、ListViewItem を必要とする場合に発生 Private Sub ListView_RetrieveVirtualItem(ByVal sender As Object, ByVal e As RetrieveVirtualItemEventArgs) Dim row As DataRow = Me.m_virtualListDataSrouce.Rows(e.ItemIndex) e.Item = New ListViewItem(New String() {Convert.ToString(row(0)), Convert.ToString(row(1))}) End Sub
' 選択されている情報 を 出力ウィンドウに出力 Private Sub SelectedOut(ByVal sender As Object, ByVal e As System.EventArgs) Dim lview As ListView = _ DirectCast(Me.m_tabControl.TabPages(ListViewName.Virtual).Controls(ListViewName.Virtual.ToString()), ListView)
Dim selectedIndices As ListView.SelectedIndexCollection = _ lview.SelectedIndices
Dim selectedItems As ListView.SelectedListViewItemCollection = _ lview.SelectedItems()
'' チェックボックスに関する情報 'Dim checkedIndices As ListView.CheckedIndexCollection = _ 'lview.CheckedIndices()
'Dim checkedItems As ListView.CheckedListViewItemCollection = _ 'lview.CheckedItems()
Console.WriteLine("全項目数:" & lview.Items.Count()) Console.WriteLine("選択項目数:" & selectedIndices.Count()) 'Console.WriteLine("チェックされてる項目数:" & checkedIndices.Count()) Console.WriteLine("SelectedIndices:") For Each index As Integer In selectedIndices Console.WriteLine(index.ToString()) Next ' Virtual Mode の時は SelectedItems コレクションの要素にアクセスできない Console.WriteLine("SelectedItems:") 'For Each item As ListViewItem In selectedItems ' Dim allText As String = item.Text ' For Each subItem As ListViewItem.ListViewSubItem In item.SubItems ' allText &= " " & subItem.Text ' Next ' Console.WriteLine(allText) 'Next ' なのでこういう感じで取り出す For Each index As Integer In selectedIndices Dim item As ListViewItem = lview.Items(index) Dim allText As String = item.Text For Each subItem As ListViewItem.ListViewSubItem In item.SubItems allText &= " " & subItem.Text Next Console.WriteLine(allText) Next
'Console.WriteLine("CheckedIndices:") 'For Each index As Integer In checkedIndices ' Console.WriteLine(index.ToString()) 'Next 'Console.WriteLine("CheckedItems:") 'For Each item As ListViewItem In checkedItems ' Dim allText As String = item.Text ' For Each subItem As ListViewItem.ListViewSubItem In item.SubItems ' allText &= " " & subItem.Text ' Next ' Console.WriteLine(allText) 'Next End Sub End Class

投稿日時 : 2007年2月8日 10:25

Feedback

# re: ListView(System.Windows.Forms.ListView) 2007/02/08 11:25 中博俊

再現した
ListView VirtuakMode CheckBoxesで同事象が2件ほどあるけどConnect.microsoft.comには上がっていない模様。
あげてBlogで投票を呼び掛けましょう

# re: ListView(System.Windows.Forms.ListView) 2007/02/08 12:09 なおこ(・∀・)

>> 中さん
フィードバックしました。
https://connect.microsoft.com/VisualStudio/feedback/ViewFeedback.aspx?FeedbackID=256970

初めてだったので。。。あれでよかったのかな。。。

# re: ListView(System.Windows.Forms.ListView) 2007/06/14 11:39 Kypros

Nice

# re: ListView(System.Windows.Forms.ListView) 2007/09/26 13:26 Ivan

Nice

# toolstripbutton-でつながるブログリング 2008/12/23 10:47 blogring.org

toolstripbuttonに関するブログをまとめています。

# MZSrpOhayYM 2012/01/07 3:16 http://www.luckyvitamin.com/c-1181-arthritic-condi

I must admit, the webmaster is a cool guy..!

# adSXxRhfXv 2014/08/04 4:17 http://crorkz.com/

22rlRp I think this is a real great blog. Really Great.

# yDXlAQdHMuV 2014/09/08 19:42 http://www.arrasproperties.com/

Well I truly liked studying it. This tip provided by you is very constructive for accurate planning.

# I am genuinely grateful to the owner of this site who has shared this impressive piece of writing at at this time. 2018/03/05 13:24 I am genuinely grateful to the owner of this site

I am genuinely grateful to the owner of this site who has shared this
impressive piece of writing at at this time.

# re: ListView(System.Windows.Forms.ListView) 2019/03/08 5:20 great

great share, thanks for that

# re: ListView(System.Windows.Forms.ListView) 2019/03/08 5:20 gadai bpkb

I am genuinely grateful to the owner of this site who has shared this
impressive piece of writing at at this time.

# lEKyXHlqkJbE 2019/04/19 16:59 https://www.suba.me/

VOfNuB Its hard to find good help I am regularly saying that its difficult to find good help, but here is

# RNzYlQMnDzSjddkXHV 2019/04/26 19:52 http://www.frombusttobank.com/

simply shared this helpful info with us. Please stay us up to date like this.

# kGKfJnGpYrCLvSp 2019/04/26 22:27 http://www.frombusttobank.com/

Wow, awesome blog layout! How long have you been blogging for? you make blogging look easy. The overall look of your website is great, let alone the content!

# RHhdSHVEFQjWv 2019/04/27 3:27 https://www.masteromok.com/members/noodlebeef03/ac

Some genuinely fantastic articles on this website , regards for contribution.

# WeQmTdBPVqMgBfmO 2019/04/27 3:55 https://vue-forums.uit.tufts.edu/user/profile/8371

in his/her brain that how a user can be aware of it.

# moSdewLbBgddZv 2019/04/29 18:49 http://www.dumpstermarket.com

Thanks for the post. I will certainly comeback.

# EolkwXCkIQSW 2019/04/30 16:24 https://www.dumpstermarket.com

Thanks a whole lot for sharing this with all of us you essentially know what you will be speaking about! Bookmarked. Kindly also visit my web page =). We could have a link exchange contract among us!

# otXlPheRyTGVhEH 2019/05/01 21:30 http://freetexthost.com/opvdnuuqod

in a search engine as natural or un-paid (organic) search results.

# NLCpogiFFdrASXM 2019/05/02 3:55 http://odbo.biz/users/MatPrarffup501

Network Promoting is naturally extremely well-known since it can earn you a lot of income inside a quite short time period..

# tSlOSzjuDOiaJTXpsBm 2019/05/03 3:36 http://chicagodesigngroup.com/__media__/js/netsolt

So happy to get located this submit.. Liking the post.. thanks alot So happy to possess identified this post.. So pleased to get found this submit..

# qttLAdxcjkPpdS 2019/05/03 5:38 http://anytimesell.com/user/profile/405644

When June arrives to the airport, a man named Roy (Tom Cruise) bumps into her.

# GbHaDFRAOSdVNvEG 2019/05/03 16:46 https://www.youtube.com/watch?v=xX4yuCZ0gg4

Just thought i would comment and say neat design, did you code it yourself? Looks great. Just found here

# ZdOVUaKkYmuMPhG 2019/05/03 17:12 https://mveit.com/escorts/netherlands/amsterdam

Looking forward to reading more. Great post. Awesome.

# iEDlUSWHpsCaSvkS 2019/05/03 19:52 https://mveit.com/escorts/united-states/houston-tx

I?d need to examine with you here. Which isn at one thing I usually do! I enjoy studying a submit that will make people think. Additionally, thanks for permitting me to remark!

# yvAcxHOgDAPbZT 2019/05/03 21:33 https://talktopaul.com/pasadena-real-estate

I value the blog.Much thanks again. Fantastic.

# zDKNEhwjbQH 2019/05/03 23:29 https://mveit.com/escorts/united-states/los-angele

Wonderful put up, definitely regret not heading on the USO style dinner. Keep up the great perform!

# HruTrjYgnNAE 2019/05/04 3:40 https://www.gbtechnet.com/youtube-converter-mp4/

Woh I love your content, saved to bookmarks!

# zFVownXfMVH 2019/05/04 16:28 https://wholesomealive.com/2019/04/28/unexpected-w

you are saying and the way in which during which you say it.

# OAIlHYZRwpHLgucFF 2019/05/08 19:56 http://www.authorstream.com/calposgata/

Right away I am going to do my breakfast, after having my breakfast coming yet again to read additional news.

# eGtCXPFzGTEUzALs 2019/05/08 21:12 https://ysmarketing.co.uk/

This page certainly has all the info I needed concerning this subject and didn at know who to ask.

# uKugxkzNVmCM 2019/05/08 21:50 https://erikhaigh.yolasite.com/

It as arduous to seek out knowledgeable individuals on this matter, however you sound like you already know what you are talking about! Thanks

# XsURJeSwgSiGzA 2019/05/09 0:52 https://www.youtube.com/watch?v=Q5PZWHf-Uh0

Utterly written written content, appreciate it for information. In the fight between you and the world, back the world. by Frank Zappa.

# VwPSSATaISSJB 2019/05/09 2:06 https://www.reverbnation.com/artist/video/16050984

Looking forward to reading more. Great blog article.Much thanks again. Fantastic.

# YPISPCYHDVKNWWX 2019/05/09 5:49 https://www.youtube.com/watch?v=9-d7Un-d7l4

The thing that All people Ought To Know Involving E commerce, Modify that E commerce in to a full-blown Goldmine

# zVBsJvDfWNFTvAQz 2019/05/09 8:16 https://amasnigeria.com/registration-form/

I\ ave had a lot of success with HomeBudget. It\ as perfect for a family because my wife and I can each have the app on our iPhones and sync our budget between both.

# bWGEhnwpsKqPB 2019/05/09 10:41 http://www.popscreen.com/v/9AoJY/Canadian-Health-A

wow, awesome post.Really looking forward to read more. Really Great.

# NQGhdCPlYZIeSS 2019/05/09 16:30 https://reelgame.net/

Louis Vuitton Outlet Well done ! Drinking water might have been more useful, but hey

# VQPQXcHlNBxqrEshve 2019/05/09 19:46 http://pablosubido3ks.journalnewsnet.com/a-study-o

I was suggested this blog by my cousin. I am not sure whether this post is written by him as nobody else know such detailed about my difficulty. You are incredible! Thanks!

# PWrqGYZsLIzSC 2019/05/09 20:42 https://pantip.com/topic/38747096/comment1

Take pleasure in the blog you delivered.. Great thought processes you have got here.. My internet surfing seem complete.. thanks. Genuinely useful standpoint, thanks for posting..

# ZKyQHWoxqd 2019/05/09 22:43 https://www.sftoto.com/

Paragraph writing is also a fun, if you be acquainted with afterward you can write or else it is complicated to write.

# dzXXneiZYiGCxMZ 2019/05/10 1:33 https://www.mtcheat.com/

You have made some decent points there. I checked on the internet for more information about the issue and found most people will go along with your views on this site.|

# IRPWlGUigoMsbDV 2019/05/10 3:49 https://totocenter77.com/

You, my friend, ROCK! I found exactly the info I already searched everywhere and just could not find it. What a perfect site.

# svzxfzCtygpYlJd 2019/05/10 5:27 https://disqus.com/home/discussion/channel-new/the

Really enjoyed this blog post.Really looking forward to read more. Awesome.

# orTLPKktiGWRmTRC 2019/05/10 5:59 https://bgx77.com/

Im obliged for the article. Much obliged.

# ikbEupWSduKJIFjLjAp 2019/05/10 9:33 https://rehrealestate.com/cuanto-valor-tiene-mi-ca

If a man does not make new acquaintances as he advances through life, he will soon find himself alone. A man should keep his friendships in constant repair.

# pITIFBTYhEdukMBMCQ 2019/05/10 22:12 https://community.alexa-tools.com/members/ordertax

My brother suggested I might like this blog. He was totally right. This post actually made my day. You can not imagine simply how much time I had spent for this info! Thanks!

# dODSMRmiajrP 2019/05/11 5:45 http://bobantia.com/__media__/js/netsoltrademark.p

Where did you get this information from ? Toronto Insurance

# OdckeGbsce 2019/05/13 2:38 https://reelgame.net/

say about this article, in my view its in fact

# AYmeBwXjNddAks 2019/05/13 18:26 https://www.ttosite.com/

Woh I love your content, saved to bookmarks!

# juxYPKOnvTPArzut 2019/05/14 1:23 http://khrysha.in/__media__/js/netsoltrademark.php

What as up, just wanted to mention, I enjoyed this post. It was funny. Keep on posting!

# QsztzULloNExC 2019/05/14 3:29 http://jaqlib.sourceforge.net/wiki/index.php/User:

My brother suggested I might like this web site. He was entirely right. This post actually made my day.

# bLtZjNWCTQutjeARmv 2019/05/14 9:10 http://easy945.com/mediawiki/index.php/Want_A_New_

I value the article.Much thanks again. Much obliged.

# dZIFKpaonhYnbpFeYZC 2019/05/14 13:27 http://seniorsreversemortdsw.wpfreeblogs.com/ancie

You ave made some really good points there. I looked on the web for more information about the issue and found most people will go along with your views on this web site.

# BdQPYRfJGHunZcT 2019/05/14 15:31 http://james9180qn.recentblog.net/longer-dated-tre

Major thankies for the post.Much thanks again. Really Great.

# KWaVmoQIWGbqHatgQeg 2019/05/14 22:19 https://totocenter77.com/

This site truly has all of the info I wanted about this subject and didn at know who to ask.

# VNoxxRKTFEH 2019/05/15 6:55 http://www.watchresult.com/entertainment/cotizar-s

You should take part in a contest for top-of-the-line blogs on the web. I all advocate this web site!

# RmiqDyVuTGEzfeF 2019/05/15 9:02 http://www.qjhcd.com/home.php?mod=space&uid=11

It as not that I want to duplicate your web-site, but I really like the design and style. Could you let me know which style are you using? Or was it custom made?

# tWfoIieIVwiJYPSff 2019/05/15 23:35 https://www.kyraclinicindia.com/

Wealthy and traveling anywhere and whenever I want with my doggie, plus helping get dogs fixed, and those that need homes, and organizations that do thus and such.

# hWQgJxuqbcV 2019/05/16 20:33 https://reelgame.net/

Thanks a lot for the blog article.Really looking forward to read more.

# LHnfsbCpqhJaOTf 2019/05/17 1:26 https://www.sftoto.com/

Thanks again for the post. Keep writing.

# GfsDWRXnyAUEDQAPGx 2019/05/17 5:17 https://www.youtube.com/watch?v=Q5PZWHf-Uh0

This unique blog is obviously entertaining additionally informative. I have discovered a bunch of helpful advices out of this amazing blog. I ad love to return every once in a while. Thanks a bunch!

# pIINlztuLgpjKehA 2019/05/17 5:25 https://www.ttosite.com/

The electronic cigarette makes use of a battery and a small heating aspect the vaporize the e-liquid. This vapor can then be inhaled and exhaled

# jFBBNLYeIrvsp 2019/05/17 23:39 http://georgiantheatre.ge/user/adeddetry753/

It is the best time to make a few plans for the future and it as

# LlrrersEhaQ 2019/05/18 3:49 https://tinyseotool.com/

You don at have to remind Air Max fans, the good people of New Orleans.

# jGRaqvLmkOv 2019/05/18 6:55 http://grand-master.ru/bitrix/rk.php?goto=https://

Im thankful for the blog post.Really looking forward to read more. Awesome.

# UiDfRajliH 2019/05/18 8:57 https://bgx77.com/

Some really quality articles on this site, saved to bookmarks.

# aBPkOCcWGMzcD 2019/05/20 15:29 https://teleman.in/members/tellersharon40/activity

This awesome blog is obviously cool and also factual. I have picked many helpful advices out of it. I ad love to return again soon. Thanks a lot!

# vPexBMmCeXtNV 2019/05/20 20:38 https://disqus.com/home/channel/psyer/discussion/c

You made some good points there. I checked on the web for more information about the issue and found most people will go along with your views on this site.

# aOfSTcKFxSF 2019/05/21 2:45 http://www.exclusivemuzic.com/

page who has shared this great paragraph at at this time.

# HPbgjnLTqC 2019/05/21 21:02 https://nameaire.com

Im obliged for the blog.Much thanks again. Really Great.

タイトル  
名前  
Url
コメント