| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 934 人关注过本帖
标题:Windows Style 的 Website
只看楼主 加入收藏
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
 问题点数:0 回复次数:4 
Windows Style 的 Website

做了一個好像是 Windows 的 Website
主界面:

图片附件: 游客没有浏览图片的权限,请 登录注册

Recycle Bin 是用戶已經刪除的項目
Music 用於下載的音樂檔案
Videos 用於下載的視頻檔案
Pictures 用於收藏的圖片檔案
Forum 社區論壇


開始菜單的內容與 Windows 差不多,
其中也提供了 小型的計算器, 三個 Windows 的遊戲(MineSweeper, Spider 和Solitaire)
用戶組和成員管理, 分配許可權的設定
图片附件: 游客没有浏览图片的权限,请 登录注册


各部分的右鍵菜單
桌面的只能有屬性, 任務欄的和 Windows 一樣, 只是任務管理器是管理 Web 頁上打開的小窗口而已
任務欄右下角常駐任務留有空白, 還未想到加點甚麽上去
图片附件: 游客没有浏览图片的权限,请 登录注册


小窗口, 可以打開多個小窗口, 窗口也有標題欄, 可以移動, 有狀態樣, 可以改變大小, 小窗口根據用戶指令加載不同的頁面, 有系統菜單, 可以最大化和最小化, 也可以關閉, 有層次關係, 擁有焦點的窗口將置於最前面, 當然不能覆蓋菜單項,並且在任務欄也有高亮顯示. 例如打開多個搜索窗口 (Start->search)
图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册



另外本站大部分資源可以通過 "運行" 對話框打開
图片附件: 游客没有浏览图片的权限,请 登录注册


......
很多, 總之是完全 Windows Style 的
整個站點就是一個主界面內完成, 各項功能的頁面可以通過打開小窗口完成.
客戶端界面的腳本全部是 VBScript, 完全可以用 JScript 或 Javascript 改寫
--------
部分的主界面代碼:

<%@ Page Language="C#" AutoEventWireup="true" CodeFile="Windows.aspx.cs" Inherits="Windows" %>

<HTML>
<HEAD runat="server">
<TITLE>Windows</TITLE>
<META Charset="Unicode" />
<LINK HRef="Default.css" Rel="Stylesheet" Type="Text/css" />
<STYLE>
.StartButtonNormal
{
Font-Weight: bold;
height: 20;
Border: Outset 2 White;
}
.StartButtonClicked
{
Font-Weight: bold;
height: 20;
Border: Inset 2 White;
}
.smTitle
{
Width: 16;
Height: 16;
Filter: Glow(Color='Orange', Strength=5);
}

#ToolbarTable TD
{
Padding: 0;
}

.TaskTitle_Active
{
Background-Color: White;
Padding-Left: 2;
Width: 90;
Height: 21;
Padding-Top: 2;
Border: Inset 1 White;
Font-Weight: Bold;
}
.TaskTitle_Deactive
{
Background-Color: ButtonFace;
Padding-Left: 2;
Width: 90;
Height: 21;
Padding-Top: 2;
Border: Outset 1 White;
Font-Weight: Normal;
}

IFRAME
{
Border: Outset 2 White;
}
</STYLE>
<SCRIPT Language="VBScript">
Option Explicit


Class POINT
Public x, y
Private Sub Class_Initialize()
Me.x = 0
Me.y = 0
End Sub

Public Sub [=](ByRef pt)
Me.x = pt.x
Me.y = pt.y
End Sub
End Class

Private hInterval_smTitle, m_smTitleFilter_GlowStep
Private m_smTitleFilter_GlowStrength(7), m_smTitleFilter_GlowOrder(7)
Private hInterval_TimeZone
Private hInterval_PeekTask, bAddingTask
Private dwTD
Private hPrevFocusTaskTitle
Private hPrevDesktopItem

Private hPopMenus()

Private Sub Window_OnLoad()
Window_OnResize
InitEvents
InitIntervals
Redim hPopMenus(5)
Set hPopMenus(0) = programsMenu
Set hPopMenus(1) = documentsMenu
Set hPopMenus(2) = settingsMenu
Set hPopMenus(3) = accessoriesMenu
Set hPopMenus(4) = gamesMenu
Set hPopMenus(5) = controlPanelMenu
dwTD = 0
Set hPrevFocusTaskTitle = Nothing
Set hPrevDesktopItem = Nothing

'MsgBox "Sets the screen resolution to 1024 x 768" & vbCrLf & "and maximize the window.", vbExclamation, "STRONG Recommend"
End Sub

Private Sub Window_OnUnload()
ClearInterval hInterval_smTitle
ClearInterval hInterval_TimeZone
ClearInterval hInterval_PeekTask
End Sub

Private Sub InitEvents()
Dim hEles, hEle

' menu item events
Set hEles = Document.getElementsByTagName("SPAN")
For Each hEle In hEles
If UCase(hEle.ClassName) = "MENUITEM" Then
Set hEle.OnMouseOver = GetRef("MenuItem_MouseOver")
Set hEle.OnMouseOut = GetRef("MenuItem_MouseOut")
End If
Next
Set hEles = Document.getElementsByTagName("TR")
For Each hEle In hEles
If UCase(hEle.ClassName) = "MENUITEM" Then
Set hEle.OnMouseOver = GetRef("MenuItem_MouseOver")
Set hEle.OnMouseOut = GetRef("MenuItem_MouseOut")
End If
Next

' desktop icons
For Each hEles In DesktopIcons.Rows
For Each hEle In hEles.Cells
Set hEle.OnClick = GetRef("DesktopItem_Click")
Next
Next
End Sub

Private Sub DesktopItem_Click()
Dim hEle
If Not hPrevDesktopItem Is Nothing Then
hPrevDesktopItem.Children(2).Style.BackgroundColor = "BACKGROUND"
hPrevDesktopItem.Children(0).Style.Filter = ""
End If
Set hEle = Window.Event.SrcElement
Do While UCase(hEle.TagName)<>"TD"
Set hEle = hEle.ParentElement
Loop
hEle.Children(2).Style.BackgroundColor = "DARKBLUE"
hEle.Children(0).Style.Filter = "Gray()"
Set hPrevDesktopItem = hEle
End Sub

Private Sub InitIntervals()
Randomize
Dim i, x, r, g, b, hEle
For i = 0 To 7
r=Hex(Fix(Rnd*156) + 100): g=Hex(Fix(Rnd*156) + 100): b=Hex(Fix(Rnd*20))
r = String(2-Len(r), "0") & r
g = String(2-Len(g), "0") & g
b = String(2-Len(b), "0") & b
Set hEle = document.getElementById("sm" & i)
hEle.Filters.Glow.Color = "#" & r & g & b
x = Fix(Rnd * 16)
m_smTitleFilter_GlowStrength(i) = x
m_smTitleFilter_GlowOrder(i) = True
Next
m_smTitleFilter_GlowStep = 2
hInterval_smTitle = SetInterval("DynSMTitle", 100)

hInterval_TimeZone = SetInterval("DynTime", 1000)

bAddingTask = False
hInterval_PeekTask = SetInterval("PeekTask", 3000)
End Sub

Private Sub PeekTask()
If bAddingTask Then Exit Sub
Dim pPos
If (TaskName.Options.Length<>0) And (TaskIcon.Options.Length<>0) And (TaskURL.Options.Length<>0) And (TaskWindowPosition.Options.Length<>0) Then
pPos = Split(TaskWindowPosition.Options(0).Text, ", ")
NewTask TaskName.Options(0).Text, TaskIcon.Options(0).Text, TaskURL.Options(0).Text, pPos(0), pPos(1), pPos(2), pPos(3)
TaskName.Remove 0
TaskIcon.Remove 0
TaskURL.Remove 0
TaskWindowPosition.Remove 0
bAddingTask = False
End If
End Sub

Private Sub NewTask(ByVal lpName, ByVal lpIcon, ByVal lpURL, ByVal x, ByVal y, ByVal cx, ByVal cy)
Randomize
Dim hTR, hTD
Dim hFrame
If ToolbarTable.Rows.Length = 0 Then
Set hTR = ToolbarTable.InsertRow
Else
Set hTR = ToolbarTable.Rows(ToolbarTable.Rows.Length-1)
If hTR.Cells.Length=8 Then Set hTR = ToolbarTable.InsertRow
End If
hTR.Style.Width = "100%"
Set hTD = hTR.InsertCell
hTD.InnerHTML = "<SPAN Class=""TaskTitle_Active"" Style=""Background-Image: URL('" & lpIcon & "'); Background-Repeat: No-Repeat; Background-Position: Left Top; Padding-Left: 17;""><NOBR>" & lpName & "</NOBR></SPAN>"
hTD.NoWrap = True
hTD.Style.PaddingRight = 5
hTD.ID = "TD" & dwTD
Set hTD.Children(0).OnContextMenu = GetRef("Task_ContextMenu")
Set hTD.OnClick = GetRef("TaskTitle_Click")
Set hFrame = Document.CreateElement("IFrame")
Call AdjustWindowsIndex(-document.GetElementsByTagName("IFRAME").Length)
With hFrame
.Src = lpUrl
.Style.Position = "Absolute"
.Style.zindex = -1
.FrameBorder = 0
If x=-1 Then
.Style.PosLeft = Fix(Rnd * 100) + 10
Else
.Style.PosLeft = x
End If
If y=-1 Then
.Style.PosTop = Fix(Rnd * 100) + 10
Else
.Style.PosTop = y
End If
If cx=-1 Then
.Style.PosWidth = 400 + Fix(Rnd * 100)
Else
.Style.PosWidth = cx
End If
If cy=-1 Then
.Style.PosHeight = 300 + Fix(Rnd * 100)
Else
.Style.PosHeight = cy
End If
.ID = "frm_" & dwTD
.Title = CStr(.Style.PosLeft) & "_" & CStr(.Style.PosTop) & "_" & CStr(.Style.PosWidth) & "_" & CStr(.Style.PosHeight)
End With
Set hFrame.OnFocus = GetRef("IFRAME_ONFOCUS")
dwTD = dwTD + CLng(1)
divDesktop.AppendChild hFrame
If Not hPrevFocusTaskTitle Is Nothing Then hPrevFocusTaskTitle.ClassName = "TaskTitle_Deactive"
Set hPrevFocusTaskTitle = hTD.Children(0)
hTD.ScrollIntoView
End Sub

Private Sub AdjustWindowsIndex(ByVal idx)
Dim hFrms, hFrm, i
Set hFrms = document.GetElementsByTagName("IFRAME")
For Each hFrm In hFrms
If hFrm.Style.ZIndex>=idx Then hFrm.Style.ZIndex = hFrm.Style.ZIndex - 1
Next
End Sub

Private Sub IFRAME_ONFOCUS()
Dim hEle, pID, hSpn
Set hEle = Window.Event.SrcElement
If UCase(hEle.TagName) = "IFRAME" Then
pID = Split(hEle.ID, "_")
If Not hPrevFocusTaskTitle Is Nothing Then hPrevFocusTaskTitle.ClassName = "TaskTitle_Deactive"
Set hSpn = Document.GetElementByID("TD" & pID(1)).Children(0)
hSpn.ClassName = "TaskTitle_Active"
hSpn.ScrollIntoView
Set hPrevFocusTaskTitle = hSpn
AdjustWindowsIndex hEle.Style.ZIndex
hEle.Style.zindex = -1
End If
End Sub

Private Sub Task_ContextMenu()
Dim x, y, hTD, hFrm
HideSubMenus Nothing
StartMenu.Style.Display = "None"
taskbarContextMenu.Style.Display = "None"
desktopContextMenu.Style.Display = "None"
x = Window.Event.x
y = Window.Event.y
Set hTD = Window.Event.SrcElement
Do While UCase(hTD.TagName)<>"TD"
Set hTD = hTD.ParentElement
Loop
Set hFrm = Document.GetElementByID("frm_" & Mid(hTD.ID, 3))
With TaskContextMenu
If x+.Style.PosWidth > document.body.clientWidth Then x = x - .style.PosWidth
If y+.Style.PosHeight > document.body.clientHeight Then y=y - .style.PosHeight
.style.PosTop = y
.style.PosLeft = x
.style.display = "block"
End With
hFrm.Style.Display = "Block"
hFrm.Focus
Window.Event.CancelBubble = True
Window.Event.ReturnValue = False
End Sub
Private Sub TaskTitle_Click()
Dim hTD, hTR, hFrm, hSpn
Set hTD = Window.Event.SrcElement
Do While UCase(hTD.TagName)<>"TD"
Set hTD = hTD.ParentElement
Loop
Set hFrm = Document.GetElementById("frm_" & Mid(hTD.ID, 3))
Set hSpn = hTD.Children(0)
If Not hPrevFocusTaskTitle Is Nothing Then
If Not hPrevFocusTaskTitle Is hSpn Then hPrevFocusTaskTitle.ClassName = "TaskTitle_Deactive"
End If
If hSpn.ClassName = "TaskTitle_Active" Then
hSpn.ClassName = "TaskTitle_Deactive"
hFrm.Style.Display = "None"
Else
AdjustWindowsIndex hFrm.Style.ZIndex
hFrm.Style.ZIndex = -1
hSpn.ClassName = "TaskTitle_Active"
hFrm.Style.Display = "Block"
Set hPrevFocusTaskTitle = hSpn
End If
End Sub

Private Sub DynTime()
TimeZone.InnerText = Time
End Sub

Private Sub DynSMTitle()
Dim i, hEle
For i = 0 To 7
Set hEle = document.getElementById("sm" & i)
hEle.Filters.Glow.Strength = m_smTitleFilter_GlowStrength(i)
If m_smTitleFilter_GlowOrder(i) Then
m_smTitleFilter_GlowStrength(i) = m_smTitleFilter_GlowStrength(i) + m_smTitleFilter_GlowStep
If m_smTitleFilter_GlowStrength(i)>8 Then m_smTitleFilter_GlowOrder(i) = False
Else
m_smTitleFilter_GlowStrength(i) = m_smTitleFilter_GlowStrength(i) - m_smTitleFilter_GlowStep
If m_smTitleFilter_GlowStrength(i)<0 Then m_smTitleFilter_GlowOrder(i) = True
End If
Next
End Sub

Private Sub Window_OnResize()
Dim hRow, hCell, t
With Taskbar.Style
.posTop = Document.body.clientHeight - .posHeight
.posWidth = document.body.clientWidth
End With
HideAllSubMenus
StartButton.ClassName = "StartButtonNormal"
StartMenu.Style.Display = "None"
taskbarContextMenu.style.display = "None"
TaskContextMenu.Style.Display = "None"
ToolbarWindow.Style.PosWidth = document.body.ClientWidth - 180

divDesktop.Style.PosHeight = document.body.clientHeight - Taskbar.Style.PosHeight

If UCase(divRun.Style.Display)="BLOCK" Then ShowRun
End Sub

Private Sub HideAllSubMenus()
programsMenu.Style.display = "none"
documentsMenu.style.display = "none"
settingsMenu.style.display = "none"
accessoriesMenu.style.display = "none"
gamesMenu.style.display = "none"
controlPanelMenu.style.display = "none"
End Sub

Private Sub HideSubMenus(ByRef includeIndexArray)
Dim i
If Not IsArray(includeIndexArray) Then
For i=0 To UBound(hPopMenus)
hPopMenus(i).Style.Display = "None"
Next
Else
For i = 0 To UBound(includeIndexArray)
hPopMenus(includeIndexArray(i)).Style.Display = "None"
Next
End If
End Sub

Private Sub ShowSubMenu(ByVal idx, ByVal x, y)
With hPopMenus(idx).Style
.PosTop = y
.PosLeft =x
.Display = "Block"
End With
End Sub

Private Sub MenuItem_MouseOver()
Dim hEle, hCell, lpszVal, x, y
x = 0
y = 0
Set hEle = Window.Event.SrcElement
Do While UCase(hEle.ClassName)<>"MENUITEM"
Set hEle = hEle.ParentElement
Loop
With hEle.Style
.BackgroundColor = "HIGHLIGHT"
.Color = "HIGHLIGHTTEXT"
End With
If UCase(hEle.TagName)="TR" Then
Set hCell = hEle.Cells(hEle.Cells.Length-1)
If hCell.Children.Length>0 Then
If UCase(hCell.Children(0).TagName) = "IMG" Then
hCell.Children(0).Src="Resources/MenuExpandSignH.ico"
lpszVal = hEle.Cells(hEle.Cells.Length-2).InnerText
Select Case UCase(lpszVal)
Case "PROGRAMS"
HideSubMenus Array(1, 2, 3, 4, 5)
x = StartMenu.Style.PosWidth-5
y = StartMenu.Style.PosTop
If y + programsMenu.Style.PosHeight>document.body.clientHeight Then y = y - programsMenu.Style.PosHeight
ShowSubMenu 0, x, y
Case "DOCUMENTS"
HideSubMenus Array(5, 2, 3, 4, 0)
x = StartMenu.Style.PosWidth-5
y = StartMenu.Style.PosTop + 25
If y + documentsMenu.Style.PosHeight>document.body.clientHeight Then y = y - documentsMenu.Style.PosHeight
ShowSubMenu 1, x, y
Case "SETTINGS"
HideSubMenus Array(1, 3, 4, 0, 5)
x = StartMenu.Style.PosWidth-5
y = StartMenu.Style.PosTop + 50
If y + settingsMenu.Style.PosHeight>document.body.clientHeight Then y = y - settingsMenu.Style.PosHeight
ShowSubMenu 2, x, y
Case "ACCESSORIES"
HideSubMenus Array(1, 5, 2, 4)
x = StartMenu.Style.PosWidth + programsMenu.Style.PosWidth - 10
y = StartMenu.Style.PosTop
If y + accessoriesMenu.Style.PosHeight>document.body.clientHeight Then y = y - accessoriesMenu.Style.PosHeight
ShowSubMenu 3, x, y
Case "GAMES"
HideSubMenus Array(1, 5, 2, 3)
x = StartMenu.Style.PosWidth + programsMenu.Style.PosWidth - 10
y = StartMenu.Style.PosTop + 15
If y + gamesMenu.Style.PosHeight>document.body.clientHeight Then y = y - gamesMenu.Style.PosHeight
ShowSubMenu 4, x, y
Case "CONTROL PANEL"
HideSubMenus Array(3, 4, 0, 1)
x = StartMenu.Style.PosWidth + settingsMenu.Style.PosWidth - 10
y = StartMenu.Style.PosTop + 50
If y + controlPanelMenu.Style.PosHeight>document.body.clientHeight Then y = y - controlPanelMenu.Style.PosHeight
ShowSubMenu 5, x, y
End Select
End If
Else
HideSubMenus Nothing
End If
Else
Select Case UCase(hEle.InnerText)
Case "TASKBAR AND START MENU"
HideSubMenus Array(3, 4, 0, 1, 5)
End Select
End If
End Sub

Private Sub MenuItem_MouseOut()
Dim hEle, hCell
Set hEle = Window.Event.SrcElement
Do While UCase(hEle.ClassName)<>"MENUITEM"
Set hEle = hEle.ParentElement
Loop
If UCase(hEle.TagName)="TR" Then
Set hCell = hEle.Cells(hEle.Cells.Length-1)
If hCell.Children.Length>0 Then
If UCase(hCell.Children(0).TagName) = "IMG" Then
hCell.Children(0).Src="Resources/MenuExpandSign.ico"
End If
End If
End If
With hEle.Style
.BackgroundColor = "MENU"
.Color = "MENUTEXT"
End With
End Sub

Private Sub Taskbar_OnContextMenu()
Dim x, y
HideAllSubMenus
StartButton.ClassName = "StartButtonNormal"
StartMenu.Style.Display = "None"
TaskContextMenu.Style.Display = "None"
desktopContextMenu.Style.Display = "None"
x = Window.event.x
y = window.event.y
With taskbarContextMenu.style
If (x+.posWidth)>document.body.clientWidth Then x = x - .posWidth
If (y+.posHeight)>document.body.clientHeight Then y = y-.posHeight
.posTop = y
.posLeft = x
.display = "Block"
End With
window.event.returnValue = False
End Sub

Private Sub StartButton_OnClick()
HideAllSubMenus
If StartButton.ClassName = "StartButtonNormal" Then
With StartMenu.Style
.PosLeft = 0
.PosTop = document.body.clientHeight - Taskbar.Style.PosHeight -.PosHeight
.Display = "Block"
StartMenu.Focus
End With
StartButton.ClassName = "StartButtonClicked"
Else
With StartMenu.Style
.Display = "None"
End With
StartButton.ClassName = "StartButtonNormal"
End If
TaskContextMenu.Style.Display = "None"
taskbarContextMenu.Style.Display = "None"
desktopContextMenu.Style.Display = "None"
Window.Event.CancelBubble = True
End Sub

Private Sub Document_OnClick()
taskbarContextMenu.style.display = "None"
HideAllSubMenus
StartMenu.Style.Display = "None"
StartButton.ClassName = "StartButtonNormal"
TaskContextMenu.Style.Display = "None"
desktopContextMenu.Style.Display = "None"
End Sub
Private Sub Window_OnBlur()
Document_OnClick
End Sub

Private Sub EndTask()
Dim hFrm, hTR, hTD
Set hTD = hPrevFocusTaskTitle
Do While UCase(hTD.TagName)<>"TD"
Set hTD = hTD.ParentElement
Loop
Set hTR = hTD.ParentElement
Do While UCase(hTR.TagName)<>"TR"
Set hTR = hTR.ParentElement
Loop
Set hFrm = Document.GetElementByID("frm_" & Mid(hTD.ID, 3))
divDesktop.RemoveChild hFrm
hTR.DeleteCell hTD.CellIndex
If hTR.Cells.Length = 0 Then
ToolbarTable.DeleteRow hTR.RowIndex
End If
End Sub

Private Sub MinimizeWindow()
Dim hFrm, hTD
Set hTD = hPrevFocusTaskTitle
Do While UCase(hTD.TagName)<>"TD"
Set hTD = hTD.ParentElement
Loop
hTD.Children(0).ClassName = "TaskTitle_Deactive"
Set hFrm = Document.GetElementByID("frm_" & Mid(hTD.ID, 3))
hFrm.Style.Display = "None"
End Sub

Private Sub MaximizeWindow()
Dim hFrm, hTD
Set hTD = hPrevFocusTaskTitle
Do While UCase(hTD.TagName)<>"TD"
Set hTD = hTD.ParentElement
Loop
Set hFrm = Document.GetElementByID("frm_" & Mid(hTD.ID, 3))
Set hPrevFocusTaskTitle = hTD.Children(0)
With hFrm.Style
.PosTop = 0
.PosLeft = 0
.Width = "100%"
.Height = "100%"
End With
hFrm.ContentWindow.Document.GetElementByID("SysCtlBoxMax").Style.BackgroundImage = "URL('\Resources\Windows\ctl_Restore.ico')"
End Sub

Private Sub RestoreWindow()
Dim hFrm, hTD, pRect
Set hTD = hPrevFocusTaskTitle
Do While UCase(hTD.TagName)<>"TD"
Set hTD = hTD.ParentElement
Loop
Set hFrm = Document.GetElementByID("frm_" & Mid(hTD.ID, 3))
pRect = Split(hFrm.Title, "_")
Set hPrevFocusTaskTitle = hTD.Children(0)
With hFrm.Style
.Width = ""
.Height = ""
.PosLeft = CInt(pRect(0))
.PosTop = CInt(pRect(1))
.PosWidth = CInt(pRect(2))
.PosHeight = CInt(pRect(3))
End With
hFrm.ContentWindow.Document.GetElementByID("SysCtlBoxMax").Style.BackgroundImage = "URL('\Resources\Windows\ctl_Maximize.ico')"
End Sub

Private Sub ShowRun()
With divRun.Style
.PosTop = document.Body.ClientHeight - Taskbar.Style.PosHeight - .PosHeight-8
.Display = "Block"
End With
End Sub

Private Sub Desktop_ContextMenu()
Dim x, y
HideAllSubMenus
StartButton.ClassName = "StartButtonNormal"
StartMenu.Style.Display = "None"
TaskContextMenu.Style.Display = "None"
TaskbarContextMenu.Style.Display = "None"
x = Window.Event.x
y = Window.Event.y
If x+desktopContextMenu.Style.PosWidth > document.body.clientWidth Then x = x - desktopContextMenu.Style.PosWidth
If y+desktopContextMenu.Style.PosHeight > document.body.clientHeight Then y = y - desktopContextMenu.Style.PosHeight
desktopContextMenu.Style.PosLeft = x
desktopContextMenu.Style.PosTop = y
desktopContextMenu.Style.Display = "Block"
Window.Event.ReturnValue = False
End Sub
</SCRIPT>
</HEAD>
<BODY BGColor="Background" Style="Margin: 0; Overflow-x: Auto; Overflow-y: Hidden;">
<TABLE Style="Border: 0; Border-Collapse: Collapse;" ID="DesktopIcons">
<TR><TD Class="desktopIcon"><IMG Src="\Resources\Windows\ResMgmt\RecycleEmpty.ico" /><BR /><LABEL>Recycle Bin</LABEL></TD></TR>
<TR><TD Class="desktopIcon"><IMG Src="\Resources\Windows\ResMgmt\Disk_Musics.ico" /><BR /><LABEL>Musics</LABEL></TD></TR>
<TR><TD Class="desktopIcon"><IMG Src="\Resources\Windows\ResMgmt\Disk_Videos.ico" /><BR /><LABEL>Videos</LABEL></TD></TR>
<TR><TD Class="desktopIcon"><IMG Src="\Resources\Windows\ResMgmt\Disk_Pictures.ico" /><BR /><LABEL>Pictures</LABEL></TD></TR>
<TR><TD Class="desktopIcon"><IMG Src="\Resources\Windows\ResMgmt\Disk_Forums.ico" /><BR /><LABEL>Forums</LABEL></TD></TR>
</TABLE>
<DIV ID="divDesktop" Style="Position: Absolute; Left: 0; Top: 0; Overflow: Hidden; Width: 100%;" OnContextMenu="Desktop_ContextMenu">
</DIV>
<DIV ID="Taskbar" Style="Position: absolute; Left: 0; Top: 0; Width: 200; Height: 30; background-color: ButtonFace;
border: Outset 2 White; Z-Index: 1;">

搜索更多相关主题的帖子: Website Style Windows 任務欄 管理器 
2007-10-21 00:18
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
收藏
得分:0 

哇~~~~~~~~~


[编程论坛] ASP超级群:49158383  敲门暗号:ASP编程
龍艺博客 http://www.
2007-10-21 07:19
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
你是中国人么?界面为什么要那么外国化?
2007-10-21 08:06
yeshirow
Rank: 4
等 级:贵宾
威 望:10
帖 子:854
专家分:0
注 册:2006-6-8
收藏
得分:0 
對了, 界面語言可以在控制面板裏設定, 期待支持 MUI 的, 但個人水平就只有 中文和英文了
桌面背景圖案也可以用戶自定義, 不同的用戶有不同的配置方案

原來朋友仔感情再天真, 亦是我永遠也會愛惜的人, 明日愛他人, 也記住學會不要緊; 原來朋友比戀人更高分, 亦讓我開始懂得不記恨, 若大家都敏感, 我更要永遠記得拒絕再因小事怪人, 爲何沒有這條校訓...Twins-朋友仔 MCSD Training
2007-10-21 10:25
redice
Rank: 3Rank: 3
等 级:新手上路
威 望:6
帖 子:902
专家分:0
注 册:2006-12-11
收藏
得分:0 
很漂亮 我记得 有个网络U盘的网站 也是这样的 要是有源码就好了 嘿嘿

鲲鹏数据 - 专业Web数据采集服务提供者
http://www.
2007-10-21 10:30
快速回复:Windows Style 的 Website
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050850 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved