Dia 1 - CAD College
Dia 1 - CAD College
Dia 1 - CAD College
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Kader Invullen<br />
Update en onthoud<br />
I will not talk about update because its work in the same way in the previous routine, just about<br />
remember "onhoud".<br />
The routine will remember nothing what going on is in the event of Form1_Load I but this<br />
routine<br />
For Each id In col<br />
Dim blokreferentie As BlockReference<br />
blokreferentie = transactie.GetObject(id, OpenMode.ForWrite)<br />
Dim AttRefIdColl = blokreferentie.AttributeCollection<br />
For Each attRefId As ObjectId In AttRefIdColl<br />
Dim AttRef As AttributeReference<br />
AttRef = transactie.GetObject(attRefId, OpenMode.ForWrite)<br />
'PROJECTNAME<br />
If AttRef.Tag.Equals(PROJECTNAME, StringComparison.OrdinalIgnoreCase) = True Then<br />
Dim PNAME As String<br />
PNAME = AttRef.TextString<br />
TextBox1.BackColor = Drawing.Color.LightGray<br />
TextBox1.Text = PNAME<br />
End If<br />
'CLIENT<br />
If AttRef.Tag.Equals(CLIENT, StringComparison.OrdinalIgnoreCase) = True Then<br />
Dim cNAME As String<br />
cNAME = AttRef.TextString<br />
TextBox2.BackColor = Drawing.Color.LightGray<br />
TextBox2.Text = cNAME<br />
And for each TextBox<br />
PrivateSubTextBox1_TextChanged(ByValsender As System.Object,<br />
ByVal e As System.EventArgs) Handles TextBox1.TextChanged<br />
TextBox1.BackColor = Drawing.Color.Empty<br />
End Sub<br />
16/12/2010 ED<strong>CAD</strong>1.0 HBO-Traject 2010 59