- Код: Выделить всё
Private Sub LoadSkin(ByVal File As String, ByRef DocXML As XmlDocument)
DocXML = New XmlDocument
Try
DocXML.LoadXml(File)
Catch ex As Exception
MsgBox("Не удалось загрузить скин. Сообщение об ошибке:" & vbCr & ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
Exit Sub
End Try
ClockFace = New Bitmap(sPath & DocXML.DocumentElement.Attributes("ClockFace").Value)
ClockGlass = New Bitmap(sPath & DocXML.DocumentElement.Attributes("ClockGlass").Value)
ClockHourArrow = New Bitmap(sPath & DocXML.DocumentElement.Attributes("HourArrow").Value)
ClockMinuteArrow = New Bitmap(sPath & DocXML.DocumentElement.Attributes("MinuteArrow").Value)
ClockSecondArrow = New Bitmap(sPath & DocXML.DocumentElement.Attributes("SecondArrow").Value)
ClockDot = New Bitmap(sPath & DocXML.DocumentElement.Attributes("Dot").Value)
End Sub
Если передать в неё файл из ресурсов, My.Resources.DefaultSkin, то всё нормально. Если тот же самый файл открывать с диска, то появляется ошибка:
Содержимое XML абсолютно одинаковое.