Thanks to you again for your confidence.
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
Here the image rotates while dragging around the center clockwise or not, although when the mouse moves horizontally the spinning slows. A workaround could be to spin just in one direction and take into account that when dragging and y=0 the image continues spinning.
Imports System.Drawing
Imports System.Reflection
Imports System.IO
Public Class rotatingRectangle
Dim bDrag As Boolean
Dim oldpos As New Point(0, 0)
Dim oldAlpha As Double = 0.0
WithEvents bmpBlue As Bitmap
Dim center As Point
Dim w, h, cliW, cliH As Single
Dim mp As Point
Private Sub rotatingRectangle_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try
Dim filename As String = "viento de cizalladura.png"
Dim _assembly As [Assembly] = [Assembly].GetExecutingAssembly
Dim _stream As Stream = _assembly.GetManifestResourceStream("MyNameSpace." + filename)
bmpBlue = Bitmap.FromStream(_stream)
_stream.Close()
w = bmpBlue.Width
h = bmpBlue.Height
cliW = Me.ClientRectangle.Width
cliH = Me.ClientRectangle.Height
center = New Point(cliW / 2, _
cliH / 2)
Me.DoubleBuffered = True
Catch ex As Exception
End Try
End Sub
Private Sub bmpBlue_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
bDrag = True
End Sub
Private Sub bmpBlue_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
bDrag = False
End Sub
Private Sub bmpBlue_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
mp = New Point(e.X, e.Y)
Me.Refresh()
End Sub
Private Sub rotatingRectangle_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Try
Dim alpha As Double
If bDrag Then
If oldpos.X = 0 AndAlso oldpos.Y = 0 Then
oldpos = New Point(mp.X - center.X, mp.Y - center.Y)
Exit Sub … 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