Dim vplaats() As String = Split(Replace(TextBox1.Text, "'", "''"), " ")
vplaats(0) = StrConv(vplaats(0), VbStrConv.ProperCase)
vplaats(vplaats.Length - 1) = StrConv(vplaats(vplaats.Length - 1), VbStrConv.ProperCase)
Dim platts As String = Join(vplaats, " ")
ddanbe commented: Completely right, and well said! +15
rproffitt commented: Divide and conquer. Then rule. +12
rproffitt commented: Should be interesting to see Mr.M's take on this answer. Good find. +12
rproffitt commented: That's all folks! +0
rproffitt commented: 3 men walk into a bar, the 4th man ducks. +12
xrjf 230 Posting Whiz
I've tried your code and the only way I could change the window's background was setting x:Key.
MainWindow.xaml:
<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="MainWindow" Style="{StaticResource MyWindowStyle}" >
<Grid HorizontalAlignment="Center" VerticalAlignment="Center">
<Grid.RowDefinitions>
<RowDefinition Height="Auto" />
<RowDefinition Height="Auto" />
</Grid.RowDefinitions>
<TextBlock Grid.Row="0" Text="Hello" HorizontalAlignment="Stretch" VerticalAlignment="Stretch" />
<TextBox Grid.Row="1" Height="25" Width="100" HorizontalAlignment="Center" VerticalAlignment="Center" />
</Grid>
</Window>myStyle.xaml:
<ResourceDictionary xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
<Style x:Key="MyWindowStyle">
<Setter Property="Control.Height" Value="500" />
<Setter Property="Control.Width" Value="500" />
<Setter Property="Control.Background" >
<Setter.Value>
<SolidColorBrush Color="Red" Opacity="0.2" />
</Setter.Value>
</Setter>
<Setter Property="Window.Title" Value="Styled Window"/>
<Setter Property="Control.HorizontalAlignment" Value="Center" />
<Setter Property="Control.VerticalAlignment" Value="Center" />
<Setter Property="Window.WindowStyle" Value="None"/>
<Setter Property="Window.AllowsTransparency" Value="True"/>
</Style>
<Style TargetType="{x:Type Grid}">
<Setter Property="Height" Value="250" />
<Setter Property="Width" Value="250" />
<Setter Property="Background" Value="LightSalmon" />
<Setter Property="HorizontalAlignment" Value="Center" />
<Setter Property="VerticalAlignment" Value="Center" />
</Style>
</ResourceDictionary>Application.xaml:
<Application x:Class="Application"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
StartupUri="MainWindow.xaml" >
<Application.Resources>
<ResourceDictionary>
<ResourceDictionary.MergedDictionaries>
<ResourceDictionary Source="myStyle.xaml" />
</ResourceDictionary.MergedDictionaries>
</ResourceDictionary>
</Application.Resources>
</Application> xrjf 230 Posting Whiz
Let's see how it goes this time. I've left commented the old instruction to visualize better the change.
Private Sub AddNode(ByVal inXmlNode As XmlNode, ByVal inTreeNode As TreeNode)
Dim i As Integer
If inXmlNode.HasChildNodes Then
Dim nodeList As XmlNodeList
nodeList = inXmlNode.ChildNodes
i = 0
While i <= nodeList.Count - 1
Dim xNode As XmlNode = inXmlNode.ChildNodes(i)
Dim imgIndex As Int32 = -1
If xNode.Attributes IsNot Nothing Then
For Each att As XmlAttribute In xNode.Attributes
If att.Name = "Icon" Then
imgIndex = addImage(att.Value)
Exit For
End If
Next
End If
Dim tNode As New TreeNode(xNode.Name)
Dim bIsTxt As Boolean = False
If tNode.Text = "#text" Then
tNode.Text = xNode.Value
bIsTxt = True
End If
If imgIndex <> -1 Then
tNode.ImageIndex = imgIndex
End If
If bIsTxt Then
'inTreeNode.Text += " " + tNode.Text '
inTreeNode.Text = tNode.Text
Else
inTreeNode.Nodes.Add(tNode)
AddNode(xNode, tNode)
End If
i += 1
End While
End If
End Sub xrjf 230 Posting Whiz
SELECT e.classid,
a.planname,
b.workoutname,
e.date,
c.timeslot,
e.status,
d.staffemail
FROM tblclass e
JOIN tblallocation f ON e.planallocationid = f.planallocationid
JOIN tblplan a ON a.planid = f.planid
JOIN tblworkout b ON b.workoutid = f.workoutid
JOIN tblstaff d ON d.staffid = e.staffid
JOIN tbltimeslot c ON c.timeslotid = e.timeslotid xrjf 230 Posting Whiz
This is physics and has to do, in my opinion, with OOP more or less like physical.
The solution I think is θ' = π - θ because I should have taken PP' instead of P'P.
rproffitt commented: That's most likely the right way to do it. But the OP's story is untold. +12
xrjf 230 Posting Whiz
In Visual Studio explorer right click over the application name and add a new element: a xml file. Paste the xml text inside the new xml file. Next, right click (in VS explorer) over the xml file name and select "properties" (I am translating from spanish) and in "Compile actions" set option "embedded file".
Finally change "MyNameSpace.XMLFile1.xml" to your name space and file name.
You may find the 'MyNameSpace' in the application properties, "application" tab, box "root namespace".
Change 'XMLFile1.xml' by the name you have given to the file.
JamesCherrill commented: Relevant and really helpfu. Excellent contribution.l +15
xrjf 230 Posting Whiz
The following code may be a poor solution, but as far as I know controls are not serializable unless having a custom serializable class for each type of control. This is a workaround. Another possibility could be to get properties through Reflexion, but again gaining complexity.
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Public Class _De_Serialize
Dim filePath As String = "C:\Users\Public\controls.dat"
Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
Dim fs As FileStream = Nothing
Try
fs = New FileStream(filePath, FileMode.OpenOrCreate)
Dim bf As New BinaryFormatter
Dim cnt As Int32 = 0
Dim vCtl(-1) As Control
For Each ctr In Me.Controls
' ctls. having a numeric tag will be saved:'
If IsNumeric(ctr.tag) Then
ReDim Preserve vCtl(cnt)
vCtl(cnt) = ctr
cnt += 1
End If
Next
bf.Serialize(fs, cnt.ToString) ' save how many '
For i = 0 To cnt - 1
Dim ctr As Control = vCtl(i) ' next control to save'
Dim sType As String = LCase(ctr.GetType.ToString)
bf.Serialize(fs, sType)
bf.Serialize(fs, ctr.Name.ToString)
bf.Serialize(fs, ctr.Text)
bf.Serialize(fs, ctr.Location.X.ToString)
bf.Serialize(fs, ctr.Location.Y.ToString)
'...eventually save more properties '
Me.Controls.Remove(ctr)
Next
Catch ex As Exception
Finally
If fs IsNot Nothing Then
fs.Close()
End If
End Try
End Sub
Private Sub btnRestore_Click(sender As System.Object, e As System.EventArgs) Handles btnRestore.Click
Dim fs As FileStream = Nothing
Try
If Not IO.File.Exists(filePath) Then
Exit Sub
End If
fs = New FileStream(filePath, FileMode.OpenOrCreate)
Dim bf As New BinaryFormatter
' Get how many controls were saved: '
Dim cnt …
rproffitt commented: Nulls are small slug-like creatures of limited intelligence who drain energy. +12