XKField Class |
Code of field: K
Type of field: color.
Applicable to:
Any ARGB number stored as 32 or 64 bit value.
Warning: if alpha and Red components are zero, the value may be understood as a 32 bit integer instead of a 64 bit integer
Namespace: Biolomics.BioCallback
The XKField type exposes the following members.
Name | Description | |
---|---|---|
XKField(XKField) |
Creates New XKField from source.
| |
XKField(TKField, XRecord) |
Initializes a new instance of the XKField class.
| |
XKField(XKField, XRecord) |
Copy ctor but into a new XRecord
|
Name | Description | |
---|---|---|
Color |
Gets or sets the Field value as Color.
| |
FieldValue |
Gets or sets the field value return the Color as Object (to be casted to system.Color).
(Overrides XFieldFieldValue.) | |
IsModified |
Gets or sets a value indicating whether this instance is modified.
(Inherited from XField.) | |
Value |
Gets or sets the value.
|
Name | Description | |
---|---|---|
Alpha |
Gets Alpha value.
| |
Alpha(Int64) |
Gets the Alpha value from given KField value as Long.
| |
Blue |
Get Blue value as Short.
| |
Blue(Int64) |
Gets the Blue value from given KField value as Long.
| |
CanRead |
Determines whether current connection can read from Field.
(Inherited from XField.) | |
CanWrite |
Determines whether current connection can write from Field.
(Inherited from XField.) | |
Clear |
Clears this instance.
(Inherited from XField.) | |
Clone |
Clones this instance.
| |
CloneAsXField |
We cannot use name 'Clone' here otherwise Implements vector.TId(Of XSField) fails because XSField.Clone() returns a XField instead of a XSField !!!
(Overrides XFieldCloneAsXField(XRecord).) | |
DataToView |
Converts field value to readable string.
(Inherited from XField.) | |
DataToView(Int32) |
Mandatory otherwise DataToView(5) returns letter 5 of string given by DataToView(), instead of the subfield value
(Inherited from XField.) | |
Equals |
Determines whether the specified Object is equal to this instance.
(Inherited from XField.) | |
Field |
each derived class embed its own TField member, which can be a TAField, TCField, TEField, etc.
this function must return that original TField
(Overrides XFieldField.) | |
FieldDef |
Gets the Field definition.
(Inherited from XField.) | |
FieldType |
The Field type.
(Inherited from XField.) | |
Finalize | Allows an object to try to free resources and perform other cleanup operations before it is reclaimed by garbage collection. (Inherited from Object.) | |
GetHashCode | Serves as the default hash function. (Inherited from Object.) | |
GetType | Gets the Type of the current instance. (Inherited from Object.) | |
Green |
Gets Green value.
| |
Green(Int64) |
Gets the Green value from given KField value as Long.
| |
Key |
Gets Field Key.
(Inherited from XField.) | |
MemberwiseClone | Creates a shallow copy of the current Object. (Inherited from Object.) | |
ParentRecord |
Gets the parent record.
(Inherited from XField.) | |
Read |
Reads the Content from source object.
(Inherited from XField.) | |
Red |
Gets Red value.
| |
Red(Int64) |
Gets the Red value from given KField value as Long.
| |
Reset |
Resets this instance.
(Inherited from XField.) | |
SetDefaultValues |
Sets the default values.
(Inherited from XField.) | |
ToString | Returns a string that represents the current object. (Inherited from Object.) | |
Write |
Writes data into a TQuery
and Format it depending to field type
(Inherited from XField.) |
Red Green Blue Alfa (RGBA) color space.
RGBA (255, 255, 255, 255) is White.
RGBA (0, 0, 0, 255) is Black.
Imports System Imports BioloMICS.BioCallback Imports BioloMICS.SharedClasses Imports System.Drawing Public Class Program <STAThread()> Shared Sub Main() Dim program As New Program program.ChangeField() End Sub ' Write sub functions here Public Sub ChangeField() ' get the current connection Dim SqlCo As XConnection = Run.GetCurrentConnection() If SqlCo Is Nothing Then Return End If ' get a table from its User name Dim TableDef As XTableDef = SqlCo.GetTableDefByUserNameEng("Your_Table_Name") If TableDef Is Nothing Then ' may happen if that table doesn't exist Return End If ' load a E-Field from that table Dim FieldDefMap As New XFieldDefMap Dim FieldDef As XFieldDef = SqlCo.GetFieldByUserNameEng("Your_K_Field_name", TableDef.Key) If FieldDef Is Nothing Then ' that field doesn't exist Return End If FieldDefMap.Add(FieldDef) ' load all records Dim Where As XWhere = XWhere.All Dim RecordMap As XRecordMap = Run.LoadRecords(TableDef.Key, FieldDefMap, Where) For Each Record As XRecord In RecordMap Dim Field As XKField = TryCast(Record.Fields(FieldDef.Key), XKField) If Field Is Nothing Then ' this field doesn't exist or is not a E-Field Continue For End If ' ***** K Field ***** Field.Color = Color.Red Record.Save(False) Next End Sub End Class