{"id":221,"date":"2007-03-27T13:01:52","date_gmt":"2007-03-27T12:01:52","guid":{"rendered":"http:\/\/soci.hu\/blog\/index.php\/2007\/03\/27\/wtf-gyanus-kod\/"},"modified":"2007-03-27T16:37:00","modified_gmt":"2007-03-27T15:37:00","slug":"wtf-gyanus-kod","status":"publish","type":"post","link":"https:\/\/soci.hu\/blog\/index.php\/2007\/03\/27\/wtf-gyanus-kod\/","title":{"rendered":"WTF gyan\u00fas k\u00f3d :)"},"content":{"rendered":"

Benevezhetne<\/a> ide<\/a>.<\/p>\n

Update: gaba kedv\u00e9\u00e9rt itt a k\u00f3d:<\/p>\n

[source:VB]
\n Private Sub Button1_Click(ByVal sender As System.Object,
\n ByVal e As System.EventArgs) Handles Button1.Click<\/p>\n

Dim name_cost As String
\n Dim i As Integer ‘A ListView-kat l\u00e9pteti
\n Dim b As Integer ‘Az item-ket l\u00e9pteti
\n Dim c As Integer ‘A subitem-ket l\u00e9pteti
\n Dim d As Integer ‘A tal\u00e1latok item r\u00e9sz\u00e9t l\u00e9pteti
\n d = 1
\n i = 0<\/p>\n

If Me.CheckBox1.Checked Then
\n While i <= 21\n c = 1\n b = 0\n If i = 1 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView1\n End If\n If i = 2 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView2\n End If\n If i = 3 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView3\n End If\n If i = 4 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView4\n End If\n If i = 5 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView5\n End If\n If i = 6 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView6\n End If\n If i = 7 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView7\n End If\n If i = 8 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView8\n End If\n If i = 9 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView9\n End If\n If i = 10 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView10\n End If\n If i = 11 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView11\n End If\n If i = 12 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView12\n End If\n If i = 13 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView13\n End If\n If i = 14 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView14\n End If\n If i = 15 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView15\n End If\n If i = 16 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView16\n End If\n If i = 17 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView17\n End If\n If i = 18 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView18\n End If\n If i = 19 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView19\n End If\n If i = 20 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView20\n End If\n If i = 21 Then\n F\u0151ablak.v\u00e1ltoz\u00f3 = F\u0151ablak.ListView21\n End If\n While b < F\u0151ablak.v\u00e1ltoz\u00f3.Items.Count.MaxValue\n\n If chc2.Checked Then\n\n name_cost = F\u0151ablak.v\u00e1ltoz\u00f3.Items.Item(b).SubItems(4).Text\n Else\n\n name_cost = F\u0151ablak.v\u00e1ltoz\u00f3.Items.Item(b).Text\n End If\n\n If name_cost = Me.TextBox1.Text Then\n 'Me.tal\u00e1latok_mini.Items.Add(F\u0151ablak.v\u00e1ltoz\u00f3.Items.Item(b).Text)\n1: 'Me.tal\u00e1latok_mini.Items.Item(d).SubItems(1).Text = F\u0151ablak.v\u00e1ltoz\u00f3.Items(b).SubItems(4).Text\n Dim add As ListViewItem\n\n add = tal\u00e1latok_mini.Items.Add(F\u0151ablak.v\u00e1ltoz\u00f3.Items.Item(b).Text)\n add.SubItems.Add(F\u0151ablak.v\u00e1ltoz\u00f3.Items(b).SubItems(4).Text)\n add.SubItems.Add(\"\")\n\n If i = 1 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Merev ac\u00e9lbet\u00e9tek\"\n If i = 2 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Betonac\u00e9lok\"\n If i = 3 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Adal\u00e9kanyagok\"\n If i = 4 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Egy\u00e9b\"\n If i = 5 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Faanyagok\"\n If i = 6 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Beton falaz\u00f3k\"\n If i = 7 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"\u00c9getett agyagt\u00e9gla\"\n If i = 8 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"P\u00f3rusbeton term\u00e9kek\"\n If i = 9 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Habarcsok\"\n If i = 10 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Ragaszt\u00f3k\"\n If i = 11 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Beton\"\n If i = 12 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Sz\u00e1las h\u0151szigetel\u0151k\"\n If i = 13 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Poli\u00e9szter h\u0151szigetel\u0151k\"\n If i = 14 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Kieg\u00e9sz\u00edt\u0151 anyagok - H\u0151szigetel\u00e9s\"\n If i = 15 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Beton cser\u00e9p\"\n If i = 16 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Ker\u00e1mia cser\u00e9p\"\n If i = 17 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Zsindely\"\n If i = 18 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Kieg\u00e9szit\u0151 anygagok - Tet\u0151fed\u00e9s\"\n If i = 19 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"Bitumenes lemez\"\n If i = 20 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"M\u0171anyag lemez\"\n If i = 21 Then Me.tal\u00e1latok_mini.Items.Item(d).SubItems(2).Text = \"F\u00f3li\u00e1k\"\n\n\n d = d + 1\n End If\n End While\n\n End While\n\n End If\n\n End Sub\n[\/source]\n<\/p>\n","protected":false},"excerpt":{"rendered":"

Benevezhetne ide. Update: gaba kedv\u00e9\u00e9rt itt a k\u00f3d: [source:VB] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[15,4],"tags":[],"class_list":["post-221","post","type-post","status-publish","format-standard","hentry","category-fun","category-szakmai-elet"],"_links":{"self":[{"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/posts\/221","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/comments?post=221"}],"version-history":[{"count":0,"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/posts\/221\/revisions"}],"wp:attachment":[{"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/media?parent=221"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/categories?post=221"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/soci.hu\/blog\/index.php\/wp-json\/wp\/v2\/tags?post=221"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}