Fot SC #170 Frikadel speciaal-editie!

woensdag 9 juni 2010 @ 16:05:25 #1

Isdatzo

Born in the echoes.

Fot SC #169 Ben jij ook in gesprek met Fred Teeven?

Hoi.

Huilen dan.

woensdag 9 juni 2010 @ 16:06:33 #2

HMaster-II

<3 HMistress

* HMaster-II Volg Topic Knopje negeermodus uitvoert

Op zondag 1 maart 2009 16:07 schreef RonaldV het volgende: Jij bent nog niet verzuurd genoeg :{w
Canon 500n | 300D | 30D | 1DmkIII | 24-105mm F/4 L | 70-200mm F/2.8 L | 50mm F/1.8 | 8mm Peleng Fish | 580EX-II | Metz44 | + de rest van de kitlensjes

woensdag 9 juni 2010 @ 16:10:34 #3

Cryothic

nerd... meer niet.

quote:
Een frikadel, niet te verwarren met een frikandel, is een ronde compacte gehaktbal met bepaalde kruiden. Volgens het "Etymologisch woordenboek van het Nederlands" draagt de bal deze naam al sinds het einde van de 16de eeuw. De frikadel wordt vooral in België, Duitsland, Zweden en Denemarken gegeten.

Nice, weer wat geleerd

Krijg alleen nou wel honger..... $@!%~!#!@$

NIEUW: Foto's!

woensdag 9 juni 2010 @ 16:12:58 #4

Isdatzo

Born in the echoes.

quote:
Op woensdag 9 juni 2010 16:00 schreef HMaster-II het volgende:

[..]

Zoiets???
SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.

Nee, niet bepaald

.

Zo wordt die tabel opgebouwd:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263

Private Sub CreateDynamicTable()
        Dim foutlabel As Label = UpdatePanelPopup.FindControl("foutlabel")

        BeginDatum = ConvertToDate(datumDateBox.Text)

        If datumDateBox2.Text = "" Then
            EindDatum = ConvertToDate("01-01-1900")
        Else
            EindDatum = ConvertToDate(datumDateBox2.Text)
        End If

        Vandaag = DateTime.Today
        UserID = GetUserId()


        If BeginDatum <= EindDatum And BeginDatum >= Vandaag Then
            Dim begindat As Date = BeginDatum
            Dim enddat As Date = EindDatum
            Dim dummy As Date = begindat
            al = New ArrayList
            aldagen = New ArrayList

            While (dummy <= enddat)
                al.Add(dummy)

                Dim weekdag As String
                Select Case CInt(dummy.DayOfWeek)
                    Case 0
                        weekdag = "zo"
                    Case 1
                        weekdag = "ma"
                    Case 2
                        weekdag = "di"
                    Case 3
                        weekdag = "wo"
                    Case 4
                        weekdag = "do"
                    Case 5
                        weekdag = "vr"
                    Case 6
                        weekdag = "za"
                    Case Else
                        weekdag = ""
                End Select

                dummy = dummy.AddDays(1)
                aldagen.Add(weekdag)
            End While

            If datumDateBox.Text <> "" Then
                If BeginDatum <= EindDatum And BeginDatum >= Vandaag Then

                    Dim placeholder1 As PlaceHolder = UpdatePanelBody.FindControl("placeholder1")
                    placeholder1.Controls.Clear()
                    UpdatePanelBody.UpdateMode = UpdatePanelUpdateMode.Always

                    Dim tbl As HtmlTable = New HtmlTable
                    Dim tr As HtmlTableRow = New HtmlTableRow

                    Dim tcma As HtmlTableCell = New HtmlTableCell()
                    Dim tcdi As HtmlTableCell = New HtmlTableCell()
                    Dim tcwo As HtmlTableCell = New HtmlTableCell()
                    Dim tcdo As HtmlTableCell = New HtmlTableCell()
                    Dim tcvr As HtmlTableCell = New HtmlTableCell()
                    Dim tcza As HtmlTableCell = New HtmlTableCell()
                    Dim tczo As HtmlTableCell = New HtmlTableCell()

                    Dim Labelma As Label = New Label
                    Labelma.Text = "<B>MA"
                    Dim Labeldi As Label = New Label
                    Labeldi.Text = "<B>DI"
                    Dim Labelwo As Label = New Label
                    Labelwo.Text = "<B>WO"
                    Dim Labeldo As Label = New Label
                    Labeldo.Text = "<B>DO"
                    Dim Labelvr As Label = New Label
                    Labelvr.Text = "<B>VR"
                    Dim Labelza As Label = New Label
                    Labelza.Text = "<B>ZA"
                    Dim Labelzo As Label = New Label
                    Labelzo.Text = "<B>ZO"

                    tcma.Controls.Add(Labelma)
                    tcdi.Controls.Add(Labeldi)
                    tcwo.Controls.Add(Labelwo)
                    tcdo.Controls.Add(Labeldo)
                    tcvr.Controls.Add(Labelvr)
                    tcza.Controls.Add(Labelza)
                    tczo.Controls.Add(Labelzo)

                    tr.Cells.Add(tcma)
                    tr.Cells.Add(tcdi)
                    tr.Cells.Add(tcwo)
                    tr.Cells.Add(tcdo)
                    tr.Cells.Add(tcvr)
                    tr.Cells.Add(tcza)
                    tr.Cells.Add(tczo)

                    tbl.Rows.Add(tr)

                    tr = New HtmlTableRow

                    For i As Integer = 0 To al.Count - 1
                        Dim tc As HtmlTableCell = New HtmlTableCell

                        tc.Style.Add("width", "10px")

                        Dim Label As Label = New Label

                        Label.ID = "L" + al.Item

Label.Text = Format(CDate(al.Item

), "dd-MM")
                        tc.Controls.Add(Label)

                        Dim txtBox As TextBox = New TextBox()

                        txtBox.ID = al.Item

Dim txtboxdatum As Date = al.Item

                        Dim dr As SqlDataReader = Nothing
                        Dim dbcon As DbConnect = New DbConnect()
                        dbcon.StoredProcedureBegin [censuur]
                        dbcon.StoredProcedureAddParam([censuur], SqlDbType.Int, 4, GetUserId())
                        dbcon.StoredProcedureExecute(dr)

                        If dr.HasRows Then
                            dr.Read()

                            Select Case CInt(txtboxdatum.DayOfWeek)
                                Case 0

                                    If i = 0 Then
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                    End If

                                    txtBox.Text = dr.Item("uren_ZO")
                                    txtBox.Enabled = False
                                    Label.Style.Add("color", "red")
                                Case 1
                                    txtBox.Text = dr.Item("uren_MA")
                                Case 2
                                    If i = 0 Then
                                        tr.Cells.Add(New HtmlTableCell())
                                    End If

                                    txtBox.Text = dr.Item("uren_DI")
                                Case 3
                                    If i = 0 Then
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                    End If

                                    txtBox.Text = dr.Item("uren_WO")
                                Case 4
                                    If i = 0 Then
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                    End If

                                    txtBox.Text = dr.Item("uren_DO")
                                Case 5
                                    If i = 0 Then
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                    End If

                                    txtBox.Text = dr.Item("uren_VR")
                                Case 6
                                    If i = 0 Then
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                        tr.Cells.Add(New HtmlTableCell())
                                    End If

                                    txtBox.Text = dr.Item("uren_ZA")
                                    txtBox.Enabled = False
                                    Label.Style.Add("color", "red")

                                Case Else
                                    txtBox.Text = ""

                            End Select

                        End If

                        txtBox.Style.Add("width", "15px")
                        txtBox.CssClass = "contentPopupTextBox"
                        txtBox.AutoPostBack = True

                        tc.Controls.Add(Label)
                        tc.Controls.Add(txtBox)

                        If CInt(txtboxdatum.DayOfWeek) = 1 Then
                            tbl.Rows.Add(tr)
                            tr = New HtmlTableRow
                        End If
                        tr.Cells.Add(tc)
                        tbl.Rows.Add(tr)
                    Next

                    placeholder1.Controls.Add(tbl)

                    For i As Integer = 0 To al.Count - 1

                        Dim textbox As TextBox = placeholder1.FindControl(al.Item

)

                        Dim trigger As New AsyncPostBackTrigger
                        trigger.ControlID = textbox.ID
                        trigger.EventName = "TextChanged"

                        UpdatePanelBody.Triggers.Add(trigger)

                    Next

                    ViewState("dynamictable") = True

                    aanvraagknop.Visible = True
                    Call tel_aanvraaguren()

                End If
            End If
            LabelBegin.Text = BeginDatum
            LabelBegin.Visible = True

            LabelEind.Text = EindDatum
            LabelEind.Visible = True

            StaticLabel1.Visible = True
            StaticLabel2.Visible = True

            foutlabel.Visible = False

        Else
            foutlabel.Text = "iets"
            foutlabel.Visible = True
        End If

    End Sub

Nu zou dit stukje voor iedere textbox een postbacktrigger moeten genereren.. ALLEEN HET WERKT NIET

.

1
2
3
4
5
6
7
8
9
10

For i As Integer = 0 To al.Count - 1

Dim textbox As TextBox = placeholder1.FindControl(al.Item

)

                        Dim trigger As New AsyncPostBackTrigger
                        trigger.ControlID = textbox.ID
                        trigger.EventName = "TextChanged"

                        UpdatePanelBody.Triggers.Add(trigger)

En 't bijbehorend stukje asp.net code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

<ajax:UpdatePanel ID="UpdatePanelBody" runat="server" UpdateMode="always">
<ContentTemplate>
<asp:Panel Width="100%" class="ContentLabel" runat="server" EnableViewState="false" ScrollBars="auto">
    <div>
        <asp:PlaceHolder ID="PlaceHolder1" runat="server"></asp:PlaceHolder>
    </div>

    <asp:TextBox ID="commentaarTextBox" Text="Commentaar (verplicht veld)." ontextchanged="checktextbox" Width="320" Height="75" Wrap="true" MaxLength="320" TextMode="MultiLine" CausesValidation="true" runat="server" AutoPostBack="true" />

    </asp:panel>
</ContentTemplate>


     <Triggers>
            <ajax:AsyncPostBackTrigger ControlID="commentaartextbox" EventName="TextChanged" />
     </Triggers>
</ajax:UpdatePanel>

Iemand?

[ Bericht 0% gewijzigd door Isdatzo op 09-06-2010 16:20:34 ]

Huilen dan.

woensdag 9 juni 2010 @ 16:13:26 #5

sanger

|-|-|-|-|-|-|-|-|-|-|-|-|-|-|

quote:
Op woensdag 9 juni 2010 16:06 schreef HMaster-II het volgende:
* HMaster-II Volg Topic Knopje negeermodus uitvoert

Ik zie hem alleen bij het replyen, en dus niet bi de quick reply

Everything you want is on the other side of fear.
Ik ben niet onhandelbaar, ik ben gewoon een grote uitdaging.

woensdag 9 juni 2010 @ 16:13:40 #6

Isdatzo

Born in the echoes.

Sorry voor de lange lap code, hij was te groot voor een spoiler

.

Huilen dan.

FOK!fotograaf woensdag 9 juni 2010 @ 16:14:11 #7

Ronhui

Ja...Dus...?

quote:
Op woensdag 9 juni 2010 16:06 schreef HMaster-II het volgende:
* HMaster-II Volg Topic Knopje negeermodus uitvoert

goede trend!

woensdag 9 juni 2010 @ 16:17:43 #8

HMaster-II

<3 HMistress

quote:
Op woensdag 9 juni 2010 16:14 schreef Ronhui het volgende:

[..]

goede trend!

Ik word "Trendsetter"

SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.

Op zondag 1 maart 2009 16:07 schreef RonaldV het volgende: Jij bent nog niet verzuurd genoeg :{w
Canon 500n | 300D | 30D | 1DmkIII | 24-105mm F/4 L | 70-200mm F/2.8 L | 50mm F/1.8 | 8mm Peleng Fish | 580EX-II | Metz44 | + de rest van de kitlensjes

Moderator / FOK!Fotograaf woensdag 9 juni 2010 @ 16:18:14 #9

D_A

Ben jij van die © ?

quote:
Op woensdag 9 juni 2010 16:14 schreef Ronhui het volgende:

[..]

goede trend!

Ik doe mee.

[b] Op Zaterdag 26 april 2008 22:35 schreef lauwert het volgende:[/b]
[i] Waar zouden we toch zijn zonder onze geliefde D_A O+ [/i]

woensdag 9 juni 2010 @ 16:19:13 #10

Isdatzo

Born in the echoes.

Jaja, leuk.. maar volgende sc geen tvp's meer

.

Huilen dan.

woensdag 9 juni 2010 @ 16:19:29 #11

Isdatzo

Born in the echoes.

En gaat iemand mij nou nog helpen?

Huilen dan.

woensdag 9 juni 2010 @ 16:27:59 #12

Erasmo

f/8 and be there.

*zin heeft in Frikadel*

woensdag 9 juni 2010 @ 16:28:12 #13

Juicyhil

Bekende FOK!ker

Hoi isdatzo

Op dinsdag 9 augustus 2011 23:01 schreef SuperrrTuxxx het volgende:
Ik hou zoveel van jou, ik doe alles voor je! O+

woensdag 9 juni 2010 @ 16:29:06 #14

Isdatzo

Born in the echoes.

quote:
Op woensdag 9 juni 2010 16:28 schreef Juicyhil het volgende:
Hoi isdatzo

Hai!

Ga jij mij helpen

?

Huilen dan.

woensdag 9 juni 2010 @ 16:29:25 #15

Juicyhil

Bekende FOK!ker

quote:
Op woensdag 9 juni 2010 16:29 schreef Isdatzo het volgende:

[..]

Hai!

Ga jij mij helpen ?

Waarmee

Op dinsdag 9 augustus 2011 23:01 schreef SuperrrTuxxx het volgende:
Ik hou zoveel van jou, ik doe alles voor je! O+

woensdag 9 juni 2010 @ 16:29:57 #16

Isdatzo

Born in the echoes.

Daarmee!

Huilen dan.

woensdag 9 juni 2010 @ 16:32:17 #17

Juicyhil

Bekende FOK!ker

quote:
Op woensdag 9 juni 2010 16:29 schreef Isdatzo het volgende:
Daarmee!

Waar heb je ergens de methode CreateDynamicTable aan het event TextChanged gekoppeld? Oftewel, als er een text is veranderd, welke methode gaat hij dan aanroepen?
Of in elk geval, er moet een methode zijn waar TextChanged naartoe moet.

Op dinsdag 9 augustus 2011 23:01 schreef SuperrrTuxxx het volgende:
Ik hou zoveel van jou, ik doe alles voor je! O+

woensdag 9 juni 2010 @ 16:35:46 #18

Isdatzo

Born in the echoes.

quote:
Op woensdag 9 juni 2010 16:32 schreef Juicyhil het volgende:

[..]

Waar heb je ergens de methode CreateDynamicTable aan het event TextChanged gekoppeld? Oftewel, als er een text is veranderd, welke methode gaat hij dan aanroepen?

Ja, dat snap ik.. maar nergens want hoe doe ik dat?

Ik heb alleen:

controlID
equals
eventname
gethashcode
gettype
onevent
owner
referenceEquals
tostring

De autopostback zelf werkt wel, maar dat deed 'ie ook met alleen "txtBox.AutoPostBack = True" al. Maar ik wil dat hij de waarde van die textbox realtime update.

Huilen dan.

woensdag 9 juni 2010 @ 16:39:39 #19

Juicyhil

Bekende FOK!ker

commentaarTextBox.TextChanged += (en dan iedere keer tab indrukken)

_{Tis voor mij ook een tijdje terug dat ik VB had gebruikt}

Op dinsdag 9 augustus 2011 23:01 schreef SuperrrTuxxx het volgende:
Ik hou zoveel van jou, ik doe alles voor je! O+

woensdag 9 juni 2010 @ 16:43:02 #20

Isdatzo

Born in the echoes.

Het is niet die textbox hè, 't zijn de dynamisch gegenereerde textboxen.. de commentaartextbox mag je vergeten, die werkt prima.

Huilen dan.

woensdag 9 juni 2010 @ 16:49:08 #21

Puala

Zo. Goeiemiddag. Vanmorgen om 9 uur de poort uit gereden. Nu, 3 sollicitaties en 18 km file verder eindelijk weer thuis. 1 aanbod komt er aan (of is er al) en de andere gaat in beraad er over. Ben benieuwd

woensdag 9 juni 2010 @ 16:49:42 #22

Isdatzo

Born in the echoes.

Goeeeeeed.. ik ga nu naar huis, snel eten en dan ben ik weg.

Iig bedankt voor 't meedenken juicy

.

Huilen dan.

woensdag 9 juni 2010 @ 17:22:31 #23

RonaldV

Phabulous Phantoms

quote:
Op woensdag 9 juni 2010 16:19 schreef Isdatzo het volgende:
Jaja, leuk.. maar volgende sc geen tvp's meer .

Ik doe heul niet aan TVPs!

- "Blind faith in your leaders, or in anything, will get you killed" Bruce Springsteen - War
- Door controle aan de landsgrenzen op te heffen kan men nu grenzenloos gaan controleren...
- Privacy Matters

woensdag 9 juni 2010 @ 17:31:20 #24

Sarabi

TVP ookal heb ik toch geen tijd om het te volgen

www.milkyroadbrewery.nl

woensdag 9 juni 2010 @ 17:34:25 #25

Chanty

Ik heersch >:)

quote:
Op woensdag 9 juni 2010 16:49 schreef Puala het volgende:
Zo. Goeiemiddag. Vanmorgen om 9 uur de poort uit gereden. Nu, 3 sollicitaties en 18 km file verder eindelijk weer thuis. 1 aanbod komt er aan (of is er al) en de andere gaat in beraad er over. Ben benieuwd

Hahaha goed bezig

je kunt straks tenminste lekker kiezen als ik het zo lees en eisen stellen

Hier vandaag ook lekker een druk dagje gehad

Laatste keer voor de klas gestaan en enquetes afgenomen: 288 respondenten in totaal voor het hoofdonderzoek en 26 voor het vooronderzoek

Ik ben blij! Daarna snel naar huis, eten en omkleden en direct door naar het werk. Vanuit het werk weer snel naar huis, weer eten en omkleden

en door naar een afspraak in Den Haag. Nu maar koken en zo stemmen en dan heb ik weer genoeg gedaan voor vandaag

Chanty's wegen zijn ondoorgrondelijk :p

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

» fotografie en digital art

» algemeen

» fotografie en digital art

» algemeen