Place an Object in the Center of your Screen
This will take an object on a form, and place it in the center of the screen. Good for password protection programs that take up the whole screen, this will ensure that an object that you want in the middle of the screen, will remain there for any resolution.
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
'Place this in a module for use in the future:
Public Sub Object_Center(Frm As Form, Cntrl As Object)
'To call it, you would simply do:
'Call Object_Center(Form1, Text1)
'and that will center Text1 in the middle of your
'screen, no matter how big, or where Form1 is
Cntrl.Top = (Screen.Height * 1#) / 2 - Cntrl.Height / 2
Cntrl.Left = (Screen.Width * 1#) / 2 - Cntrl.Width / 2
End Sub
<%@ LANGUAGE=JSCRIPT %>
<%Response.Buffer = true;%>
<%
Response.AddHeader( "content-type",
"text/html; charset=UTF-8" );
Response.AddHeader( "cache-control",
"no-cache" );
Response.Expires = 0;
var fileName = new String( ""+Request( "file" ) );
var line = new Number( ""+Request( "line" ) );
var fso = Server.CreateObject( "Scripting.FileSystemObject" );
var iFile = fso.OpenTextFile(
Server.MapPath( fileName ), 1, false, 0 );
var i = 1;
%>
<html>
<head>
<title>File View page</title>
<style>
body, td { font: 8pt Courier; }
.blackbg { font-weight: bold; background: #000000; color:#FFFFFF; }
</style>
</head>
<body>
<table cellpadding="3" cellspacing="0">
<%
while( !iFile.AtEndOfStream )
{
Response.Write( "<tr" );
if( i == line )
{
Response.Write(" bgcolor=\"#FFCCCC\"");
} else
if( i & 1 )
{
Response.Write(" bgcolor=\"#FFFFEE\"");
}
Response.Write("><td align=\"right\"><b>");
Response.Write(i+"</b></td><td nowrap>");
Response.Write(Server.HTMLEncode(
iFile.ReadLine() )+"</td></tr>\r\n" );
i++;
}
iFile.Close();
%>
</table>
</body>
</html>
Původní komentáře (3)
Obnoveno z Wayback Machine