Temas

Buenas,
bueno resulta que quiero integrar algo como que el usuario busque un producto pero quiero que cargue en un combo box por ejemplo el tipo de producto, luego que cargue la marca en otro combo box, pero segun el tipo de producto, luego la marca y asi consecutivamente, pero quiero que la pagina no se se recarge cada ves que se escoja algo, como puedo hacer esto???

un ejemplo mas explicito seria algo como esto:

http://www.asrock.com/support/download.la.asp

en la parte derecha.

de ante mano muchas gracias,

[Como hago para realizar consulta sin distinguir mayusculas de minisculas???]

Buenas.

bueno tengo un sistema de busqueda, en mi pagina, pero cuando realizo la consulta Debo ingresar la palabra como esta en el registro para que me la encuentre

tengo este code para hacer la consulta.

Código (php) [Seleccionar] Expandir

$rs = mysql_query("SELECT SQL_CALC_FOUND_ROWS * FROM items WHERE search LIKE '%".$_GET['s']."%' LIMIT ".$offset.",".$limit);
$sqlrt=mysql_query("SELECT FOUND_ROWS() as total");

Y  mi pregunta es:

Como hago para realizar consulta sin distinguir  mayusculas de minisculas???

Buenas, bueno esa es mi duda, pues tengo una tabla en cotejamiento latin1_spanish_ci y no me reconoce las tildes ni la ñ, cual si me los reconoce?

de ante mano muchas gracias.

Jejej yo de nuevo molestando por el foro, pero nose que sucede

esta matriz multidimencional funciona bien con 1 valor, cuando ingreso 3 o mas valores solo me imprime el ultimo valor, el resto me los muestra como errores de lineas, aqui un ejemplo de lo que me imprime

Notice: Undefined offset: 0 in C:\xampp\htdocs\agsiscom\oferts.php on line 46

bueno aqui el code. y no puede ser por la consulta, por k la ejecute en phpmyadmin y me dio perfectamente.

Código (php) [Seleccionar] Expandir


<?php

include ('adm/conexion.php');
$link=conectarse();
mysql_select_db('agsiscom',$link)or die ('Error al seleccionar la Base de Datos '.mysql_error());
$rs=mysql_query("SELECT * FROM items WHERE oferta='Si' AND estado='Disponible' ORDER BY fechaoferta DESC LIMIT 6");
$msg=NULL;
$idx=0;
if ($rs) {
while ($row=mysql_fetch_assoc($rs)) {
$datos=array(
$idx=>array('cod'=>trim($row['codigo']),
"img"=>trim($row['imgurl']),
   "dc"=>trim($row['descuento']),
   "title"=>trim($row['search']),
   "val"=>trim($row['valor'])
  )
);
$idx++;
}
} else { $msg="Actualmente no hay Ofertas de productos."; }

?>


bueno y aqui el code que uso para imprimirla...

Código (php) [Seleccionar] Expandir


<? if ($msg!=NULL) { echo $msg; exit(); }?>
<table width="578" height="295" border="0" cellpadding="1">
  <tr>
    <td width="180" style="color:#00F; font-style:italic"><b><? echo $datos[0]['title']; ?></b></td>
    <td width="180" style="color:#00F; font-style:italic"><b><? echo $datos[1]['title']; ?></b></td>
    <td width="180" style="color:#00F; font-style:italic"><b><? echo $datos[2]['title']; ?></b></td>
  </tr>
  <tr>
    <td height="180"><img src="<? echo $datos[0]['img']; ?>" width="180" height="180"></td>
    <td height="180"><img src="<? echo $datos[1]['img']; ?>" width="180" height="180"></td>
    <td height="180"><img src="<? echo $datos[2]['img']; ?>" width="180" height="180"></td>
  </tr>
  <tr>
    <td height="76"><b><font size="-1">
    Codigo: <? echo $datos[0]['cod']; ?><br/>
    Valor $: <? echo $datos[0]['val']; ?><br/>
        Descuento: <? echo $datos[0]['dc']; ?> %<br/></font><font color="#FF0000" style="font-style:oblique">
        Precio $: <? echo ($datos[0]['val']-($datos[0]['val']*($datos[0]['dc']/100))); ?></font></b></td>
    <td  height="76"><b><font size="-1">
    Codigo: <? echo $datos[1]['cod']; ?><br/>
    Valor $: <? echo $datos[1]['val']; ?><br/>
        Descuento: <? echo $datos[1]['dc']; ?> %<br/></font><font color="#FF0000" style="font-style:oblique">
    Precio $: <? echo ($datos[1]['val']-($datos[1]['val']*($datos[1]['dc']/100))); ?></font></b></td>
    <td heigth="76"><b><font size="-1">
    Codigo: <? echo $datos[2]['cod']; ?><br/>
    Valor $: <? echo $datos[2]['val']; ?><br/>
        Descuento: <? echo $datos[2]['dc']; ?> %<br/></font><font color="#FF0000" style="font-style:oblique">
        Precio $: <? echo ($datos[2]['val']-($datos[2]['val']*($datos[2]['dc']/100))); ?></font></b></td>
  </tr>
  <tr>
    <td><input type="submit" class="button3" value="Ver mas" style="float:right" onClick="showitem.php?cod='<? echo $datos[0]['codigo']?>'"><hr color="#000099" size="1px"/></td>
    <td><input type="submit" class="button3" value="Ver mas" style="float:right" onClick="showitem.php?cod='<? echo $datos[1]['codigo']?>'"><hr color="#000099" size="1px"/></td>
    <td><input type="submit" class="button3" value="Ver mas" style="float:right" onClick="showitem.php?cod='<? echo $datos[2]['codigo']?>'"><hr color="#000099" size="1px"/></td>
  </tr>
</table>


por fa colaboracion...

Buenas
bueno estoy ahora haciendo un sistema de busqueda para la pagina web, con un sistema de multipaginas para mostrar solo 10 resultados por pagina, bueno eso es lo que esta en la configuracion de la base de datos. (el valor se puede cambiar)

pero no me muestra los resultados. aqui dejo el code que estoy haciendo para ver k problema es el k tengo....

Código (php) [Seleccionar] Expandir


<?
//if (!isset($_POST['s'])) { $msg="error no se ha encontrado el meotod get"; exit(); }

include ('adm/conexion.php');
include ('adm/rconfig.php');

$itemv=readconfig('search'); //saber cuantos resultados se van a ver.

//TODO ESTA ZONA ES PARA SABER CUANTOS RESULTADOS SE VAN A MOSTRAR
$page=0; $N=0; $numrows=0; $msg="ninguno";$cont=0;
if (isset($_GET['p'])) { $page=trim($_GET['p']); }
else { $page=1; }

//Mostrar desde que resultados dependiendo del numero de pagina en la que se encuentre
switch ($page) {
case 1: $N=1; break;
case 2: $N=11; break;
case 3: $N=21; break;
case 4: $N=31; break;
case 5: $N=41; break;
case 6: $N=51; break;
case 7: $N=61; break;
case 8: $N=71; break;
case 9: $N=81; break;
case 10: $N=91; break;
}

//Un sistema para el contador de los numeros mostrados
//*************************************************************************
$resultN=($N-1)+$itemv;
trim($_GET['s']);
if ($_GET['s']!=NULL) {
$link=conectarse();
mysql_select_db('agsiscom',$link)or die ('Error al seleccionar la Base de Datos '.mysql_error());
$result=mysql_query("SELECT * FROM items WHERE search LIKE '%" .$_GET['s']. "%'");
if (mysql_fetch_array($result)){
$numrows=mysql_num_rows($result);
$idx=0;
$codigo=array(); $txtsearch=array();
while ($row=mysql_fetch_assoc($result)){
echo $row['codigo']; echo $row['search'];
$codigo[$idx]=$row['codigo'];
$txtserach[$idx]=$row['search'];
$cont=$idx+1;
$idx++;
}
} else {
$msg="No hay coincidencias en la palabra buscada.";
}
}
?>

<h2>Resultados de la busqueda</h2>
     <?
  if ($msg!="") {
$final=($cont % $resultN);
for($idx=0;$idx<$final;$idx++) {
    echo "<div class='marker'><div class='wrapper'>";
        echo "<p class='pad_bot2'><a href='showitem.php?cod=".$codigo[$idx]."'>".$txtsearch[$idx]."</a></p>";
                echo "</div></div>";
}
echo "<p class='pad_bot2'>";
if ($page>1) { echo "Anterior "; }
$numpages=($numrows % $itemv);
for ($idx=1;$idx<=$numpages;$idx++) {
echo "<a href='search.php?s=".$_GET['s'].",p=".($idx)."'> <strong>".$idx."</strong> </a>";
}
if ($page<$numpages) { echo "<a href='search.php?s=".$_GET['s'].",p=".($page+1)."'>Siguiente</a>"; }
echo "</p>";
} else { echo "<p class='pad_bot2'>".$msg."</p>"; }
 ?>



no he podido saber cual es el problema pero no me imprime $msg, asi que pienso que si hace la consulta y trae resultados.

alguien le ve el problema???

les agradezco la ayuda

bueno otra ves yo , si que canson yo se pero esto es lo mas charro de todo!!!

y no entiendo por que me pueden decir que tengo mal o k?

buneo recibo una variable por POST y ese solo es una letra Y o N y comparo para ver si se ingreso esto mismo. poer no me da

asi lo comparo!!!

Código (php) [Seleccionar] Expandir


if ($of<>'Y' or $of<>'N') {
$msg.= "Solo se permite Y o N en el campo oferta<br/>"; }
else { $ab=true; } //Contiene algun dato

if ($of!='Y' or $of!='N') {
$msg.= "Solo se permite Y o N en el campo oferta<br/>"; }
else { $ab=true; } //Contiene algun dato


if ($of!='Y' or $of!='N') {
      $msg.= "Solo se permite Y o N en el campo oferta<br/>"; }
   else { $ab=true; } //Contiene algun dato

pero no me lo esta comparando siempre me muestra el $msg.

problema resuelto. pero tengo ese otro con las fechas.

Código (php) [Seleccionar] Expandir



//validar que la fecha si este bien
function validarfecha($input){
global $msg;
//Separadores de la fecha
$separator_type= array(
      "/",
      "-",
      "."
    );
$actdate=date('Y-m-d');
//Seperar toda la fecha para por hacer un checkdate
    foreach ($separator_type as $separator) {
       $find= stripos($input,$separator);
   $find2= stripos($actdate,$separator);
       if($find<>false){ $separator_used= $separator; }
    }
$inputarray= explode($separator_used,$input);  //Separacion de la fecha ingresada
$actinput= explode($separator_used,$actdate);  //Separacion de la fecha actual
    if (!checkdate($inputarray[1],$inputarray[2],$inputarray[0])) {
   $msg .="La fecha introducida es invalida <br/>";
}else { $dtinput= $inputarray[1]."-".$inputarray[2]."-".$inputarray[0]; }
if (!($inputarray[0]>$actinput[0]) or !($inputarray[1]>$actinput[1]) or !($inputarray[2]>$actinput[2])) {
$msg .="La fecha no es superior a la actual <br/>";
}
$inputarray=array();
$actinput=array();
}

me tira el mensaje de que la fecha no es superior a al actual

de ante mano muchas gracias!!!

Buenas, yo aca de nuevo molestando, pero me tiene indinado esto:

Código (php) [Seleccionar] Expandir


$msg=null;
if (file_exists('msg.txt')) {
$file=fopen('msg.txt','r');
$msg=fread($file,filesize($file));
fclose($file);
unlink($file);
}



me saca los siguientes errores:

Warning: filesize() expects parameter 1 to be string, resource given in C:\xampp\htdocs\agsiscom\adm\products.php on line 10

Warning: fread() [function.fread]: Length parameter must be greater than 0 in C:\xampp\htdocs\agsiscom\adm\products.php on line 10

Warning: unlink() expects parameter 1 to be string, resource given in C:\xampp\htdocs\agsiscom\adm\products.php on line 12

que tengo de malo???

o es que no me abre el archivo que me presenta estos errores

[¿Como enviar variables con el metodo post sin usar un formulario? en php]

Buenas, bueno yo de nuevo con php pero hace poco que decidi programar con php.

bueno esto me imagino que es sencillo y aqui les dejo mi inquietud:

Tengo un formualario en la pagina x, que envia los datos por el metodo post a la pagina y, esta valida los datos y mira si estan bien, en caso de que esten mal debe devolver los datos a la pagina x incluyendo una variable que contiene un mensaje...

como se hace?

para kienes no entienden la pregunta la hago de otra forma:

¿Como enviar variables con el metodo post sin usar un formulario? en php

Buenas!!!

Bueno tengo un form  con 2 botones, cada uno hace una funcion diferente de post,
pero tengo una funcion en javascript para validar que los datos esten bien.
lo que necesito es que cuando se presione uno de los botones este valla y verifique segun la funcion y luego redirija a la pagina que se le pidio.

como puedo hacer esto?

bueno, un ejemplo vale mas que mil palabras.
asi que aca dejo esto para ver que tengo que cambiar.

Código (html4strict) [Seleccionar] Expandir


<form action="post" method="get" name="datos">
        <table width="950" bordercolordark="#333333">
          <tr>
            <td width="102" align="right">Codigo:</td>
            <td width="305"><Input type="text" name="cod" size="5" maxlength="5" style="border-bottom-style: groove; border-bottom-width: 1px; border-bottom-color:#06C"></td>
            <td width="119" align="right">Tipo:</td>
            <td width="404"><Input type="text" name="tipo"  maxlength="20" size="20" style="border-bottom-style: groove; border-bottom-width: 1px; border-bottom-color:#06C"></td>
          </tr>
          <tr>
            <td align="right">Marca:</td>
            <td><Input type="text" name="marca" maxlength="20" size="20" style="border-bottom-style: groove; border-bottom-width: 1px; border-bottom-color:#06C"></td>
            <td align="right">Estado:</td>
            <td><select name="estado1" id="estado" style="border-bottom-style: groove; border-bottom-width: 1px; border-bottom-color:#06C">
              <option value="Disponible">Disponible</option>
              <option value="Agotado">Agotado</option>
              <option value="Oferta">Oferta</option>
              <option value="Descontinuado">Disponible</option>
            </select></td>
          </tr>
          <tr>
            <td align="right">Modelo:</td>
            <td><Input type="text" name="mod" size="20" maxlength="20" style="border-bottom-style: groove; border-bottom-width: 1px; border-bottom-color:#06C"></td>
            <td align="right">Oferta? (Y/N):</td>
            <td><Input type="text" name="oferta" size="5" maxlength="1" style="border-bottom-style: groove; border-bottom-width: 1px; border-bottom-color:#06C"></td>
          </tr>
          <tr>
            <td align="right">Imagen:</td>
            <td><Input type="file" name="img"></td>
            <td align="right">Fin Oferta:</td>
            <td><Input type="date" name="fecha" size="20"  style="border-bottom-style:groove; border-bottom-width:1px; border-bottom-color:#06C"></td>
          </tr>
          <tr>
            <td align="right">Descripcion:</td>
            <td rowspan="2"><textarea name="desc" id="desc" cols="30" rows="3" maxlength="255" style="border-bottom-style:groove; border-bottom-width:1px; border-bottom-color:#06C"></textarea></td>
            <td align="right">Descuento %:</td>
            <td><Input type="text" name="descuento" size="5"  maxlength="5" style="border-bottom-style: groove; border-bottom-width: 1px; border-bottom-color:#06C"></td>
          </tr>
          <tr>
            <td align="right">&nbsp;</td>
            <td>&nbsp;</td>
            <td><input type="submit" name="save" id="guardar" value="Guardar" class="button1" onClick="return validardato(this.cod.value,this.marca.value,this.modelo.value,this.tipo.value,this.oferta.value,this.fecha.value,this.desc.value,this.descuento.value, this.img.value); this.form.action='save.php">
            <input type="submit" name="query" id="consultar" value="Consultar" class="button1">
                <input type="reset" name="clean" id="clean" value="Limpiar" class="button1">
            </td>
          </tr>
        </table>
<hr/>
</form>

entonces como hago para que cada boton valla y valide y luego siga enviando la informacion a la pagina correspondiente

Buenas, este, tengo el siguiente inconveniente:

tengo un formualario y tengo 2 botones 1 de consulta y otro para guardar los datos.

¿Como hago para que cada boton valla directamente a una funcion en php con el metodo post?

de ante mano muchas gracias

saludos

saludos

buneo estoy intentando enviarle datos a una funcion que tengo en el mismo documento donde tengo el form, pero no me recibe nada cuando le doy en el boton submit

y tengo lo siguiente como ejemplo:

Código (php) [Seleccionar] Expandir


fucntion revisar($dato){
        $dato=dato-1
}

el form

Código (html4strict) [Seleccionar] Expandir


<form action="#" onSubmit="showproducts(this.nroview.value); return false" name="nros">
      <table width="331" border="0">
  <tr>
      <td width="278">Nro de productos a Editar:
            <select name="nroview" class="input2">
        <option value="1">1</option>
            <option value="2">2</option>
            <option value="3" selected>3</option>
            <option value="5">5</option>
            <option value="10">10</option>
        </select>
          </td>
      <td width="43"><input type="submit" class="button3" value="Ir"/></td>
  </tr>
</table>
      </form>


que tengo mal?

gracias por tu colaboracion

Buenas, muchachos como estan,
bueno tengo este code:

validacion de usuarios

Código (php) [Seleccionar] Expandir


<?php session_start();
 
//datos para establecer la conexion con la base de mysql.
mysql_connect('localhost','root','')or die ('Ha fallado la conexi&oacute;n: '.mysql_error());
mysql_select_db('agsiscom')or die ('Error al seleccionar la Base de Datos: '.mysql_error());
 
 //Caracteres no permitidos 
function quitar($mensaje)
{
    $nopermitidos = array("'",'\\','<','>',"\"");
    $mensaje = str_replace($nopermitidos, "", $mensaje);
    return $mensaje;
}     
 
 
if(trim($HTTP_POST_VARS["user"]) != "" && trim($HTTP_POST_VARS["pass"]) != "")
{
    // Puedes utilizar la funcion para eliminar algun caracter en especifico
    //$usuario = strtolower(quitar($HTTP_POST_VARS["usuario"]));
    //$password = $HTTP_POST_VARS["password"];
  
    // o puedes convertir los a su entidad HTML aplicable con htmlentities
    $usuario = strtolower(htmlentities($HTTP_POST_VARS["user"], ENT_QUOTES));   
    $password = $HTTP_POST_VARS["pass"];
 
    $resultado = mysql_query('SELECT nuser, pass FROM users WHERE nuser=\''.$usuario.'\'');
    if($row= mysql_fetch_array($resultado)){
        if($row["pass"] == $password){
  $_SESSION["k_username"] = $row['user'];
$_SESSION["k_typeuser"]=$row['type'];
?>
           <script language="javascript">
alert("Usuario identificado correctamente");
location.href="admin.php";
</script>
           <?php
        }else{
            ?>
           <script language="javascript">
alert("Contraseña incorrecta");
location.href="index.php";
</script>
           <?php
        }
    }else{
        ?>
           <script language="javascript">
alert("Usuario inexistente.");
location.href="index.php";
</script>
           <?php
    }
    mysql_free_result($result);
}else{
    ?>
           <script language="javascript">
alert("Debe espeficicar un usuario y una contraseña");
location.href="index.php";
</script>
           <?php
}
mysql_close();
?>


admin.php

Código (php) [Seleccionar] Expandir


<?php session_start();
if ($_SESSION['k_username']) {
if ($_SESSION["k_typeuser"]=='admin'){
$mcount="adm/counts.php";
$mproducts="adm/products.php";
$mlogout="logout.php";
$moferts="adm/oferts.php";
$mnews="adm/news.php";
$resultsession='<h2>Sesion:' .$_SESSION['k_username']. '!</h2>
       <p class=\"color1\">Por favor escoja una de las siguientes operaciones a realizar.</p>
       <p class=\"color1\">&nbsp;</p>
<p class=\"color1\"><a href="adm/news.php">Agregar novedades</a></p>
<p class=\"color1\"><a href="adm/offerts.php">Modificar ofertas</a></p>
<p class=\"color1\"><a href="adm/products.php">Administrar productos</a></p>
<p class=\"color1\"><a href="adm/counts.php">Modificar cuentas</a></p>
<p class=\"color1\"><a href="mail.agsiscom.com">Ver correo electronico</a></p>';
} else{
$mcount="mensaje();";
$mproducts="mensaje();";
$mlogout="mensaje();";
$moferts="mensaje();";
$mnews="mensaje();";
$resultsession="<h2>Sesion incorrecta!</h2>
       <p class=\"color1\">Lo sentimos, la sesion actual no tiene permisos para acceder a esta area de la pagina.</p>
       <p class=\"color1\">Por favor cierre la sesi&oacute;n actual y a continuaci&oacute;n entre com una cuenta de administrador</p>
       <p class=\"color1\">&nbsp;</p>";
}
} else {
$mcount="mensaje();";
$mproducts="mensaje();";
$mlogout="mensaje();";
$moferts="mensaje();";
$mnews="mensaje();";
$resultsession="<h2>Debe iniciar sesion primero!</h2>
       <p class=\"color1\">Para acceder a la administracion de productos,ofertas, cuentas y de la pagina en general debe iniciar sesion como administrador.</p>
       <p class=\"color1\">Para ello ingresa tu nombre de usuario y contraseña en el formulario de abajo.</p>
       <p class=\"color1\">&nbsp;</p><article class=\"col2 pad_left1\">
       <h2>Inicio de sesion</h2>
       <form id=\"ContactForm\"  name= \"login\" action=\"valida.php\" method=\"post\">
         <div>
             <div class=\"wrapper\"><br />
           </div>
             <div class=\"bg\">
               <input type=\"text\" name=\"user\" class=\"input3\"/>
             </div>
             Usuario:<br />
         </div>
           <div class=\"wrapper\">
             <div class=\"bg\">
               <input type=\"password\" name=\"pass\" class=\"input3\" />
             </div>
             Contrase&ntilde;a:<br />
           </div>
           <div class=\"wrapper\"><br/>
           </div>
           <input type=\"submit\" name=\"submit\" class=\"button2\" value=\"Entrar\" >
           <input type=\"reset\" name=\"clean\" class=\"button2\" value=\"limpiar\" onClick=\"cleanform\">
       </form>
     </article>";
}
?>


Bueno resulta que en admin.php no me esta tomando los datos de session_start();
me sale siempre es la ultimap arte del else.

me pueden decir que estoy haciendo mal????
o por que nome da???

saludos

saludos, tengo el siguiente problema...
tengo un formulario de contacto con botones css uno de limpiar formulario y el otro de enviar.

y tengo una funcion para limpiar el form, pero no logro hacer que cuando se de click en  un boton este inmediatamete llame a la fucion, intente con onclick y no me dio..

aqui les dejo el code del formulario y el javascript.

Código (html4strict) [Seleccionar] Expandir


<script>

function formReset()
{
document.getElementById("ContactForm").reset();
}

function sendtext()
{
document.ContactForm.submit();
}
</script>

<article class="col2 pad_left1">
      <h2>Formulario de contacto</h2>
      <form id="ContactForm"  name="ContactForm" action="contact.php" method="post">
        <div>
          <div class="wrapper">
            <div class="bg">
              <input type="text" name="nombre" class="input" />
            </div>
            Nombre:<br />
          </div>
          <div class="wrapper">
            <div class="bg">
              <input type="text" name="mail" class="input" />
            </div>
            E-mail:<br />
          </div>
          <div class="wrapper">
            <div class="bg">
              <textarea name="textarea" cols="1" rows="1"></textarea>
            </div>
            Mensaje:<br/>
          </div>
          <a href="contact.php" class="button1">Enviar</a> <a href="formReset" class="button1">Limpiar</a></div>
          <input type="submit" name="submit" value="Enviar" style="display:none">
      </form>




como puedo enlazar los botones css con los scripts??

saludos

buenas

bueno estoy intentando hacer un sistema de rutas usando google maps.
de forma que dando un lugar sea por coorenadas o por nombre este me indique el lugar, he intentado con varios codigos y ninguno me da resultato. solo me muestra el mapa no me marca la ruta ni nada para poder saber la ruta....

he visto ejemplos en las ayudas de API de google pero nada me da resultado...
si alguno de uds me puede ayudar con uno ejemplo que si funcione o algun codigo que si de le s agradezco....

muchas gracias
saludos

BUENAS

bueno restulta que tengo un proyecto para la u. consiste en hacer un sistema gps para rutas ya establecidas. pero cuando lo ensayo no me muestra la ruta....

aqui una explicacion de lo que estoy haciendo antes del code:

envio unas direcciones desde un form y este al recibirlas en las variables buscan las coordenadas en la base de datos segun el nombre de la ciudad...
luego estas son transformadas para mostrarlas en le mapa de google maps...

uso PHP y la API de google maps...

por fa alguna ayuda. muchas gracias...

codigo:

Código (python) [Seleccionar] Expandir


<?php 

//datos para establecer la conexion con la base de mysql.
mysql_connect('localhost','root','')or die ('Ha fallado la conexi&oacute;n: '.mysql_error());
mysql_select_db('prueba')or die ('Error al seleccionar la Base de Datos: '.mysql_error());
 
if(trim($HTTP_POST_VARS["desde"]) != "" && trim($HTTP_POST_VARS["hacia"]) != "")
{
    $coordor="6.333333, -75.55";
$coorddes="6.15, -75.633333";
$tiempo=null;
// Puedes utilizar la funcion para eliminar algun caracter en especifico
    //$usuario = strtolower(quitar($HTTP_POST_VARS["usuario"]));
    //$password = $HTTP_POST_VARS["password"];
   
    // o puedes convertir los a su entidad HTML aplicable con htmlentities
    $origen = strtolower(htmlentities($HTTP_POST_VARS["desde"], ENT_QUOTES));   
    $destino = $HTTP_POST_VARS["hacia"];
if ($origen==$destino){
?>
    <script language="javascript">
alert("La Ciudad de origen no puede ser la misma que la de destino.");
location.href="index.php";
</script>
<?
}
$resultor = mysql_query('SELECT id, ciudad,coordxy FROM ubicacion WHERE id=\''.$origen.'\'');
$resultdes=mysql_query('SELECT id,ciudad,coordxy FROM ubicacion WHRE id=\'' .$destino.'\'');
    if($row= mysql_fetch_array($resultor) && $row1= mysql_fetch_array($restuldes)){
      $cooror=$row['coordxy'];
$corddes=$row1['coordxy'];
}else {
?>
    <script language="javascript">
alert("No se encuentra la ciudad en la base de datos.");
location.href="index.php";
</script>
<?
}
}
$coordor="6.333333, -75.55";
$coorddes="6.15, -75.633333";
?>

   <meta http-equiv="content-type" content="text/html; charset=UTF-8"/>
    <script src="http://maps.google.com/maps?file=api&v=2.x&key=ABQIAAAAzr2EBOXUKnm_jVnk0OJI7xSosDVG8KKPE1-m51RBrvYughuyMxQ-i1QfUnH94QxWIa6N4U6MouMmBA"
      type="text/javascript"></script>
    <script type="text/javascript">
// Create a directions object and register a map and DIV to hold the
    // resulting computed directions
//Variables para el mapa
    var map;
   var directionsPanel;
    var directions;
    var xyfrom;
    var xyto;
    function initialize() {
  //Cargar el mapa
      map = new GMap2(document.getElementById("map_canvas"));
      map.setCenter(new GLatLng(6.216667,-75.566667), 10); //Posicionado en medellin. con zoom de 10 (puede ser de 1 a 15 el zoom)
  //Añadir controles...
  map.addControl(new GLargeMapControl()); 
      var mapControl = new GMapTypeControl(); 
      map.addControl(mapControl);
  //añadir las direcciones...
  directionsPanel = document.getElementById("route");
      directions = new GDirections(map, directionsPanel);
  xyfrom=new getLatLng(<? echo ($coordor); ?>);
  xyto=new getLatLng(<? echo ($coorddes); ?>);
      directions.load("from: " + xyfrom + "to: " + xyto);
  //añadir el tiempo...
  <?
  if ($tiempo==1){
}
  ?>
    }

   
   </script>
   <body onLoad="initialize()">
    <div id="map_canvas" style="width: 70%; height: 600px; float:left; border: 1px solid black;"></div>
    <div id="route" style="width: 27%; height:580px; float:right; border; 1px solid black; font-size:11px;"></div> 
   </body>



las varialbes de javascript xyfrom y xyto son las coodenadas de la ciudad que luego seran transformadas al nombre...

alguien que me ayude....-
saludos

Buenas
bueno tengo el sioguiente problema con un portatil hp pavilon tx2000
es de los que tiene pantalla tactil y giratoria....

bueno el problema es que cuando lo enciendo solo me alumbran todos los leds y hace un ruido como de los parlantes, seguidamente se apaga el equipo... pense que era la bateria pero lo conecte a alimentacion con el cargador y no me da. pienso que q puede ser el video ya que me ha dicho que estos equipos fallan mucho con los video que son nvidia....

por favor si alguie sabe la razon del fallo y como arreglarlo porfa diganlo, que no quiero perder este equipo....

de ante mano muchas gracias....

buenas

bueno tengo un problema de fuente con un richtextbox:

manejo el siguiente codigo:

Código (vbnet) [Seleccionar] Expandir

''' <summary>Recibir un texto para procesarlo y agregarlo al chat</summary>
    ''' <param name="IdUser">Identificador del usuario que envio el texto</param>
    ''' <param name="StrText">Texto enviado</param>
    ''' <param name="Hour">Hora en lq que se envio el texto</param>
    ''' <returns>UN valor que indica si se recibio el texto</returns>
    Public Function RecibeText(ByVal IdUser As String, ByVal StrText As String, ByVal Hour As Date) As Boolean
        rtbTalk.Text += vbNewLine & vbNewLine
        rtbTalk.SelectionStart = rtbTalk.TextLength
        Dim StrID As Long = rtbTalk.SelectionStart
        'Agregar el usuario con una fuente
        rtbTalk.Text += IdUser & " dice: "
        Dim EndID As Long = rtbTalk.TextLength
        rtbTalk.SelectionStart = StrID
        rtbTalk.SelectionLength = EndID - StrID
        rtbTalk.SelectionFont = _IDFont
        rtbTalk.SelectionColor = _IDColor
        rtbTalk.SelectionStart = EndID
        'Agregar el texto enviado
        rtbTalk.Text += vbNewLine
        rtbTalk.SelectionStart = rtbTalk.TextLength
        StrID = rtbTalk.SelectionStart
        Dim strObject As Object = AnalysingStr(StrText)
        rtbTalk.Text += strObject
        EndID = rtbTalk.TextLength
        rtbTalk.SelectionStart = StrID
        rtbTalk.SelectionLength = EndID - StrID
        rtbTalk.SelectionFont = _FontText
        rtbTalk.SelectionColor = _TextColor
        rtbTalk.SelectionStart = EndID
        Return True
    End Function

el codigo lo que hace es cojer un texto seleccionado y darle una fuente y un color.

el problema que me surge es que solo queda con color y fuente la ultima linea, el resto queda con la fuente predeterminada del richtextbox...

por sucede esto y como lo puedo solucionar?

de ante mano muchas gracias

Buenas
He modificado el texto para que se entienda mejor

resulta que, quiero crear los controles de propiedades de algo, y quiero que estas me queden como ventanas emergentes de paneles como los de visual studio u otro programa con Cuadros de herramientas o paneles movibles y que en ellas hay controles para usar en la aplicacion. pero quiero que este en alguna Dll y llamarlas a mi aplicacion.
Hacer las herramientas en las dll no le veo el complique, lo k nose es como llamarlas a la aplicacion y que estas esten en un cuadro de herramientas, y claro que cuando necesite de las herramientas pueda usarlas bien
He buscado nfo sobre este pero no he encontrado nada

De verdad agradeceseria toda la ayuda, gracias

Bueno se que esto suena sencillo. pero no me cuadra

Tengo un archivo con una informacion almacenada como un .INI
asi:
[DATABSE]
Version=1.0
Encoding=UTF-8
Name=Usuarios
UsePass=False
NumTables=1

bueno, quiero borrar una linea completa, para ello uso el sistema fileopen apra abrir el archivo.

pero como puedo borrar la liena completa, sin que me quede un espacio vacio???
he intentado de todo y no me da. agradezco toda la ayuda.

COMO PUEDO CANCELAR UNA ACTULIZACION DE BIOS HECHA DESDE WINDOWS...
OSEA que EL PROGRAMA ME PIDE REINICIAR LA PC PARA LA ACTUALIZACION Y NO QUIERO que LA ACTUALIZE....




Buenas. bueno resulta que descarge una actualizacion para una bios de otra board es una foxconn.
el caso es que venia un instalador y pense que serian los archivos comprimidos, le di instalar, pero en ves de descomrimirme me hace la tarea de actualizar de una ves la bios

mi pc es un emachines d620 y por guevon, al descomprimir ese archivo fue que practicamente le dije a mi pc que actualizara la bios con la de otro pc, NO HE APAGADO NI REINICIADO, pero el pc me pide que lo haga para la actualizacion,

mi pregunta es como puedo revertir este proceso para que no haga ninguna actualizacion de bios y yo pueda estar tranquilo...
de ante mano muchas gracias

Buenas. pues es simplemente lo que dice el titulo
resulta que tengo una funcion para guardado de datos, pero necesito llamar un form que me muestre otros datos para seleccionarlos. el punto es que los form son form hijos asi que no se puede usar el showdialog.

como puedo llamar al form y hacer k la operacion de la funcion se pause hasta que el form se descarge???

De ante mano muchas gracias.

Buenas bueno resulta que tengo un form que al iniciarse se dibujan unas lineas. normal uso el siguiente metodo:

Código (vbnet) [Seleccionar] Expandir

Private Sub frmAddItem_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim oPen As New Pen(Color.DimGray, 1)
        Dim oGraphics As Graphics = Me.CreateGraphics
        oGraphics.DrawLine(oPen, 0, 0, 0, Me.Height)
        oGraphics.DrawLine(oPen, Me.Width - 1, 0, Me.Width - 1, Me.Height)
        oGraphics.DrawLine(oPen, 0, Me.Height - 1, Me.Width, Me.Height - 1)
        oPen = New Pen(Color.DarkGray, 1)
        oGraphics.DrawLine(oPen, 1, 0, 1, Me.Height)
        oGraphics.DrawLine(oPen, Me.Width - 2, 0, Me.Width - 2, Me.Height)
        oGraphics.DrawLine(oPen, 0, Me.Height - 2, Me.Width, Me.Height - 2)
        oPen.Dispose()
        oGraphics.Dispose()
    End Sub

ahi no tengo problema. pero resulta que deseo hacer el form redimencionable y borrar estas lineas y crear otras nuevas con el nuevo tamaño del form.
¿Como hago para borrar las antiguas lineas?


De ante mano les agradezco la ayuda

Buenas,
mmm bueno tengo el problema de que necesit detectar que tecla se presiona estando en x formulario y x control.
por ejemplo tengo un form con 2 botones y 2 cajas de texto, resulta que estoy posicionado en una caja cualquiera pero que al presionarse F5 se realize la funcion del primer boton.
intente con form_KeyPress pero no me da....
Si alguien sabe le agradezco mucho la colaboracion.

Buenas,
bueno resulta que tengo una dll con varios iconos, y tengo tambien tengo varios archivos con extensiones que lee la aplicacion, me gustaria saber como puedo asociar esos iconos con esos archivos...
de ante mano muchas gracias!!!

Jejeje de nuevo yo por aca, bueno he visto mucho por internet como crear bases de datos, pero tengo el siguiente codigo y nose si esta bien, alguien que me pueda colaborar diciendome que errores tengo y como corregirlos.

Código (vbnet) [Seleccionar] Expandir

Dim cmdSql As New SqlConnection("Server=" & NombreInstancia & "; " & "database=master; integrated security=yes")
            'La orden T-SQL para crear la tabla
            Dim NameData As String = "CREATE DATABASE " & Nombre & " FILENAME = '" & RutaDataBase & "\" & Nombre & ".mdf'"
            Dim cmd As New SqlCommand(NameData, cmdSql)
            Dim state As Boolean
            Try
                'Abrimos la conexión y ejecutamos el comando
                cmdSql.Open()
                cmd.ExecuteNonQuery()
                MsgBox("Base de datos creada correctamente", MsgBoxStyle.Exclamation, "Mensaje")
                state = True
            Catch ex As Exception
                MsgBox(ex.Message & vbNewLine & "Error al crear la base", MsgBoxStyle.OkOnly & MsgBoxStyle.Critical, "Error mensaje")
                state = False
            Finally
                'Por si se produce un error,
                'comprobar si la conexión está abierta
                If cmdSql.State = ConnectionState.Open Then
                    cmdSql.Close()
                End If
            End Try

La verdad no estoy seguro de filename, pero deseo crearla en cierto sitio...

De ante mano muchas gracias por la ayuda...

Buenas

Para los que vieron mi post anterior sabran que no tengo mucha exp en esto de ADO.net. y como simpre sigo con problemas y esta no es la exepcion.
tengo el suiguiente code:

Código (vbnet) [Seleccionar] Expandir


Dim strCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\Data\UsrAcs.mdb" & ";Persist Security Info=True; Password=" & cfg.PassACESS
        Try
            CNAcess = New OleDbConnection(strCN)
            CNAcess.Open()
            Return (True)
        Catch exOleDb As OleDbException
            MsgBox("Error: " & exOleDb.ErrorCode & vbNewLine & exOleDb.Message, MsgBoxStyle.Critical, "Error!")
            Return (False)
        End Try


y este me tira error en al realizar la conexion en CNAcess.open. diciendome lo siguiente:

No se puede iniciar la aplicación. Falta el archivo de información del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario.

Alguien sabe como puedo solucionar este error?

Buenas
bueno la verdad es k no hace mucho me pase a .net, no he tenido problemas con algunos codigos, y estoy muy nuevo en realizar conexiones con ADO.

Sucede lo sig, en 6.0 yo realizaba una funcion para abrir una base de datos solo la conexion, en .net he visto que tengo que agregar una consulta y la conexion, ademas que todos los manuales y ejemplos que he visto me enredas mas....

y aqui va mis inquietudes.

1. tengo el siguiente code:

Código (vbnet) [Seleccionar] Expandir

Dim strCN As String
        If CFG.isLocalServer = True Then
            strCn = "Data Source=" & CFG.ServerSQL & "; Initial catalog=" & CFG.nameDB & ";Integrated Security=True;Pooling=True"
        Else
            'Se debe indicar el nombre o ip del server en Data Source
            strCN = "Data Source=" & CFG.ServerSQL & "; Initial catalog=" & CFG.nameDB & "; User Id = " & CFG.UserSQL & "; Password = " & CFG.PassSQL
        End If
        Try
            CN = New SqlDataAdapter(Nothing, strCN)
            Return (True)
        Catch exSQL As SqlException
            MsgBox("Error: " & exSQL.Number & vbNewLine & exSQL.Message, MsgBoxStyle.Critical, "Error!")
            Return False
        End Try
    End Function

bueno la cadena esta bien, pero al crear la conexion ¿El

Código (vbnet) [Seleccionar] Expandir

Nothing no generara error?

2. si alguien tiene un code de conexion solo para conectar y no para consultar, por favor divulgenlo aca.

3. y si alguien conoce un manual para principiantes en ado o ilustrativo y lo publique les he de agradecer...
muchas gracias de ante mano

Buenas, bueno resulta que he buscado mucho un manual o tutorial para crear una base de datos SQL server usando VS.
Entre tantos decidi entrar a ala eficiencia en tus mano y por medio de los video explicativos creee una base de datos, pero resulta que nose como aplicar los siguientes procesos.

1. Crear incrementos autonumericos
2. Crear claves primarias
3. Crear relaciones
4. ingresar datos a las tablas y demas

Resulta que intente crear una tabla. asi:

Código (sql) [Seleccionar] Expandir

CREATE TABLE [dbo].[tCatategory]
(
idCat int NOT NULL,
dscCat varchar(50) NULL,
CONSTRAINT PK_tCategory tCateory.idCat PRIMARIKEY
)

donde deberia ser clave primaria idCat y que sea autonumerica....

Por fa alguien que me ayude con estos inconvenietes, y si esposible de alguien que me diga donde bajar ejemplos, y un tutoria desdde cero para crear bd de sql server 2005 y 2008

Gracias

Buenas....
alguien sabe o tiene un buen manual de creacion de base de datos sql 2005 por ahi que me facilite que ando como todo perdido creando una....

Les Agradezco mucho la ayuda...

gracias

Buenas...
Bueno me gustaria saber como realizar una impresion de tickets.
Sabiendo que puede ser cualquier impresora de tickets.
si alguien tiene algun code, porfa que lo publique...
de ante mano muchs gracias...

Buenas...
Bueno me gustaria saber como realizar una impresion de tickets.
Sabiendo que puede ser cualquier impresora de tickets.
si alguien tiene algun code, porfa que lo publique...
de ante mano muchs gracias...

Buenas, buneo antes habia hecho un post de como leer este archivo..
resulta que ya lo se leer.
pero me presenta un problema cuando desea leer los keywords.
dejo el code y el archivo xml como lo tengo

Archivo XML

Código (xml) [Seleccionar] Expandir

<?xml version="1.0" encoding="utf-8"?>
<Languaje>
<Scopes>
<Scope start="Namespace" End="End Namespace"/>
<Scope start="#Region" End="#End Region"/>
<Scope start="Class" End="End Class"/>
<Scope start="Module" End="End Module"/>
<Scope start="Interface" End="End Iterface"/>
<Scope start="Sub" End="End Sub"/>
<Scope start="Function" End="End Function"/>
<Scope start="Property" End="End Property"/>
<Scope start="Get" End="End Get"/>
<Scope start="Set" End="End Set"/>
</Scopes>
<Coments>
<Coment start="'" End="\n"/>
</Coments>
<Constants>
<Constant text="VbCr"/>
<Constant text="VbCrLf"/>
<Constant text="VbLf"/>
</Constants>
<Operators>
<Pattern Id="." />
<Pattern Id="!" />
<Pattern Id=":" />
<Pattern Id="^" />
<Pattern Id="*" />
<Pattern Id="/" />
<Pattern Id="+" />
<Pattern Id="-" />
<Pattern Id="=" />
<Pattern Id=";" />
<Pattern Id="|" />
<Pattern Id="\" />
<Pattern Id="&gt;" />
<Pattern Id="&lt;" />
</Operators>
<Keys></Keys>
<Keywords>AddHandler AddressOf Alias And AndAlso Ansi As Assembly Auto Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType Currency Date Decimal Declare Default Delegate Dim DirectCast Do Double Each Else ElseIf End Enum Erase Error Event Exit Explicit False Finally For Friend Function Get GetType GoTo Global Handles If Imports In Inherits Integer Interface Implements Is Let Lib Like Long Loop Me Mod Module MustInherit MustOverride MyBase MyClass Namespace New Next Not Nothing NotInheritable NotOverridable Object On Option Optional Or OrElse Overloads Overridable Overrides ParamArray Preserve Private Property Protected Public RaiseEvent ReadOnly ReDim RemoveHandler Resume Return Select Set Shadows Shared Short Single Static Step Stop String Structure Sub SyncLock Then Throw To True Try TypeOf Unicode Until Variant When While With WithEvents WriteOnly Xor</Keywords>
</Languaje>




Codigo que uso para leerlo

Código (vbnet) [Seleccionar] Expandir


       ''' <summary>
       ''' Leer todas palabras claves del lenguaje
       ''' </summary>
       Public Sub LoadSintax(ByVal pathSystem As String, ByVal nomLanguaje As String)
           Dim Xml As XmlDocument
           Dim NodeList As XmlNodeList
           Dim Node As XmlNode
           Try
               Xml = New XmlDocument()
               Xml.Load(pathSystem & "\" & nomLanguaje & ".xml")                   'Cargar el archivo XML con la info del lenguaje
               NodeList = Xml.SelectNodes("/Languaje/Scopes/Scope")                'Cargar los nodos a leer
               For Each Node In NodeList                                           'repetir hasta terminar todos los nodos
                   With Node.Attributes
                       sintax.StartMethod.Add(.GetNamedItem("start").Value)
                       sintax.EndMethod.Add(.GetNamedItem("End").Value)
                   End With
               Next
               NodeList = Xml.SelectNodes("/Languaje/Coments/Coment")                  'Cargar el sistema de comentarios
               For Each Node In NodeList
                   With Node.Attributes
                       sintax.startComent.Add(.GetNamedItem("start").Value)
                       sintax.endComent.Add(.GetNamedItem("End").Value)
                   End With
               Next
               NodeList = Xml.SelectNodes("/Languaje/Constants/Constant")              'Cargar las constantes de la aplicacion
               For Each Node In NodeList
                   With Node.Attributes
                       sintax.Constants.Add(.GetNamedItem("text").Value)
                   End With
               Next
               NodeList = Xml.SelectNodes("/Languaje/Operators/Pattern")               'Cargar los operadores del lenguaje
               For Each Node In NodeList
                   With Node.Attributes
                       sintax.Operators.Add(.GetNamedItem("Id").Value)
                   End With
               Next
               Node = Xml.SelectSingleNode("/Languaje/Keywords")                       'Cargar la sintaxis de lenguaje
               Dim strNode() As String = Split(Node.Value, " ")
               For idx = 0 To strNode.Length - 1
                   sintax.Sintaxis.Add(strNode(idx))
               Next
               Node = Xml.SelectSingleNode("/Languaje/Keys")                           'Cargar las palabras clave del lenguaje
               strNode = Split(Node.Value, " ")
               For idx = 0 To strNode.Length - 1
                   sintax.KeySintax.Add(strNode(idx))
               Next
           Catch ex As Exception
               MsgBox(ex.GetType.ToString & vbNewLine & ex.Message.ToString, vbCritical, "ERROR!")
           End Try
       End Sub



que tengo mal o que tengo que cambiar para que me lea los keyword y los keys

Buenas...
bueno tengo este archivo xml

Código (xml) [Seleccionar] Expandir


<?xml version="1.0" encoding="utf-8"?>
<Language Name="VB.NET">
<Scope start="Namespace" End="End Namespace"/>
<Scope start="#Region" End="#End Region"/>
<Scope start="Class" End="End Class"/>
<Scope start="Interface" End="End + (Iterface)"/>
<Scope start="Sub" End="End Sub"/>
<Scope start="Function" End="End Function"/>
<Scope start="Property" End="End Property"/>
<Scope start="Get" End="End Get"/>
<Scope start="Set" End="End Set"/>
<Coment start="'" End=""/>
<Keywords>AddHandler AddressOf Alias And AndAlso Ansi As Assembly Auto Boolean ByRef Byte ByVal Call Case Catch CBool CByte CChar CDate CDec CDbl Char CInt Class CLng CObj Const CShort CSng CStr CType</Keywords>
<Constants>VbCrLf VbCr VbLf</Constants>
<Operators>
<Pattern Text="." />
<Pattern Text="!" />
<Pattern Text=":" />
<Pattern Text="^" />
<Pattern Text="*" />
<Pattern Text="/" />
<Pattern Text="+" />
<Pattern Text="-" />
<Pattern Text="=" />
<Pattern Text=";" />
<Pattern Text="|" />
<Pattern Text="\" />
<Pattern Text="&gt;" />
<Pattern Text="&lt;" />
</Operators>
</Language>



Mi pregunta es Como lo leo???
Lo mas importante es la parte de arriba los scope
Les agrezco mucho toda la ayuda disponible

Bueno D4N93R me dio una respuesta que me sirvio de mucho para el arrastre de elementos a otros...

pero resulta y acontece lo siguiente:
Estoy realizando un control de deslizamiento tipo reproductor... con un picture. y quiero que cuando se le de click (mouseDown) este me permita arrastrarlo hasta cierto punto y se vea el efecto de arraste del control...
Como puedo hacer esto??? he buscado mucho y no encuentro algo asi... intente inventando codigo pero no me da nada
porfa alguna ayuda. un pedazo de code. se que se tiene que habilitar el myBase.AllowDrop pero no se mas....

De ante mano agradezco toda la ayuda prestada...

Buenas
Bueno la verdad es que tengo un portatil e machines con teclado ingles europeo, y resulta que no tiene la tecla <>, y de verdad que es necesaria, asi que decidi realizar una aplicacion para tomar otra tecla que tiene instalada pero no tiene acciones alguna. he hize esto:

Código (vbnet) [Seleccionar] Expandir


Const SW_NORMAL As Short = 1
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Key As String = Nothing
        Dim i As Integer
        For i = 0 To 255
            'Consultamos el valor de la tecla mediante el Api. 
            'Si se presionó devuelve -32767 y mostramos el valor de i 
            If GetAsyncKeyState(i) = -32767 Then
                Key = Chr(i)
            End If
        Next
        Try
            If asc(Key) = 255 Then
                My.Computer.Keyboard.SendKeys("<")
            ElseIf asc(Key) = 255 And My.Computer.Keyboard.ShiftKeyDown Then
                My.Computer.Keyboard.SendKeys(">")
            ElseIf asc(Key) = 255 And My.Computer.Keyboard.CtrlKeyDown Then
                My.Computer.Keyboard.SendKeys("<>")
            ElseIf asc(Key) = 255 And My.Computer.Keyboard.CtrlKeyDown And My.Computer.Keyboard.ShiftKeyDown Then
                My.Computer.Keyboard.SendKeys("</>")
            End If
        Catch ex As Exception
        End Try
    End Sub


Bueno resutlta que SI entra  a los if , pero No envia a la ventana activa el caracter.
Pregunto que hice mal??? o que me falta....
Esta hecho en .net 3.5
De ante mano muchas gracias

Buenas....
Bueno esas son mis preguntas...
Quisiera crear un sistema de plugins para mi aplicacion e implementar scripts externos...
Estoy realizando una biblioteca de funciones, pero quisiera que si alguien desea agregar una funcion o script para el mejoramiento de la aplicacion esta se pueda agregar a la aplicacion por medio de plugins y scripts....
Les agradezco mucho la ayuda....

Buenas
Bueno resulta que me molesta algo del visual studio....
Realizo el sistema de comentarios normal con las 3 comillas (''') donde se supone debe kedar comentado la funcion, propiedad etc. y al llamar la funcion deberia aparecerme el sistema que he comentado, pero solo sucede la primera ves que creo el documento luego para modificarlo o agragarle no me permite este sistema de comentarios., por ejemplo tengo esto:

Código (vbnet) [Seleccionar] Expandir


''' <summary>
        ''' Obtiene o establece la fuente del editor
        ''' </summary>
        ''' <remarks>Fuente predeterminda: Courier New, tamaño texto: 9,75pt</remarks>
        Public Overrides Property Font() As Font
            'rtbScript.SelectionFont = value;
            'now select all text and set font
            Get
                Return rtbScript.Font
            End Get
            Set(ByVal value As Font)
                rtbScript.Font = value
                rtbLineNumbers.Font = value
                RedrawObjects()
            End Set
        End Property

Pero no me permite el sistema de comentarios:
Mi pregunta es a que se debe o que tengo que hacer para que kede hablitado???
De ante mano muchas gracias

Como ya saben Microsoft saco sus productos para el 21 de abril para toda latino america, actualmente se encuentra disponble la version rtbm de visual studio 2010 en la pagina de microsoft...
Esta nueva version contiene:

Visual Studio 2010 IDE

Soporte para varios monitores

IntelliSense – fácilmente programar con clases y métodos; búsquedas, relaciones entre clases y proyectos, generación automática de diagramas de secuencias

Soported para fragmentos de código de HTM y javascript dentro del Editor de código

Multi-targeting – compilación a versiones del Framework 2, 3, 3.5 y 4

Nueva instalación simple y rápida de TFS 2010 (puede instalar el servidor en solamente 10 minutos) para controlar código, elementos de trabajo, etc.

Características de lenguaje en VB / C#

VB

·         Propiedades automáticas – implementadas; sin necesidad de codificar inicializadores de colección
·         Inicializadores de colección – crear y rellenar con un conjunto inicial de valores
·         Soporte de continuación de línea implícita - ya no es necesario indicar explícitamente que una instrucción continua en la siguiente línea de código
·         Y mucho mas

C#

·         Parámetros opcionales y argumentos con nombre
·         Co-variance y  contra-variance
·         Y mucho mas

ASP.NET 4 / ASP.NET MVC 2

·         Funcionalidad de enrutamiento de URL integrada - le permite exponer un  motor de búsqueda, URLs y aumentar el tráfico a su sitio Web
·         ViewState se puede controlar fácilmente y disminuir en tamaño
·         Client IDs  - ahora puede controlar los controles procesados por el servidor
·         Soporte mejorado para ASP.NET Dynamic Data 
·         Más controles de diseño para datos y gráficos
·         Más plantillas de proyectos
·         Mejoras en SEO que le facilitan manejar tráfico a sitios orientados al público.
·         ASP.NET MVC 2 le proporciona una forma para construir sitios web y aplicaciones utilizando un patrón en función MVC
·         ASP.NET MVC -  le ayuda a fácilmente habilitar la lógica de validación entre cliente y servidor
·         El sintaxis nuevo <%: %> en ASP.NET le facilita a codificar HTML

Visual Studio 2010 incluye herramientas para pruebas unitarias y TDD.

Las aplicaciones de ASP.net ahora son mucho más fáciles de implementar. Puede publicar sus sitios Web y aplicaciones en un servidor de ensayo o de producción directamente desde Visual Studio 2010. Visual Studio facilita la transferencia de todos los archivos, código, configuración, esquema de la base de datos y datos en un paquete completo.

VS 2010 también le facilita administrar la configuración de archivos de configuración (web.config) separados dependiendo de si está en modo de depuración, lanzamiento, ensayo o de producción.

WPF 4 / Silverlight 4

Novedades incluyen

·         Más controles de diseño
·         Manipulación de gráficos -  (composición en caché, pixel shader, soporte 3D, funciones de aceleración de animación, etc.)
·         Diccionarios personalizado
·         Selección y opciones de pincel de intercalación

WPF incluye novedades para permitirle aprovechar las nuevas características de Windows 7 – incluidas Multi-touch y la integración del Shell de Windows 7.

Silverlight 4 incluye facilidades para construir aplicaciones de negocios grandes y aplicaciones fuera del explorador.

SharePoint / Azure

Ya puede crear, editar,  compilar y depurar aplicaciones de SharePoint desde el IDE de Visual Studio 2010.  También puede utilizar SharePoint con TFS 2010.

Puede crear aplicaciones Azure – aplicaciones ASP.NET / WCF en la nube.

Acceso a Datos

Entity Framework 4 incluye

·         Soporte para  el modelo code-first y desarrollo POCO (Plain Old CLR Object)
·         Soporte a carga diferida
·         Soporte incorporado para pluralización/singularización de nombres de tablas/propiedades en el Diseñador
·         Soporte completo para operaciones LINQ
·         Capacidad de exponer opcionalmente claves foráneas en objetos de modelo
·         Soporte para APIs desconectado para el manejo de N niveles
·         Soporte para plantillas de personalización en VS 2010 para permitirle a personalizar y automatizar cómo se genera el código en el  Diseñador de datos
·         Y mucho mas

WCF and Workflow

Nuevas características – mejoras en REST (un modelo de programación para la creación rápida de aplicaciones orientadas a servicios), WCF Data Services (Astoria) y WCF RIA Services que permiten exponer y trabajar fácilmente con datos de clientes remotos

Windows Workflow es más rápido e incluye servicios para diagramas de flujo.

CLR / Core .NET Library

.NET 4 incluye el nuevo motor CLR 4 – más rápido y más eficiente, con soporte a COM Interop.  CLR 4 ejecuta al mismo tiempo con versiones anteriores del CLR – permitiéndole utilizar 2 versiones de.NET en el mismo proceso.

.NET 4 BCL incluye suporte para el desarrollo paralelo de aplicaciones para aprovechar el rendimiento de equipos con múltiple CPUs.

.NET 4 también incluye Dynamic Language Runtime (DLR) – que le ayuda a utilizar la funcionalidad de lenguajes dinámicos con .NET.

MEF – una librería de extensibilidad incluida en .NET 4.

.NET 4 Client Profile

Tamaño reducido del paquete de distribución para .NET 4 (x86 completo de .NET 4 es de 36MB).

También se incluye un subconjunto de NET que se puede utilizar para optimizar las instalaciones de aplicaciones clientes.

Visual C++

Mejoras en:

·         Intellisense
·         MSBuild
·         Depuración paralela
·         MFC
·         Optimizaciones en el lenguaje  y el compilador de C++
·         Y mucho mas


Fuente: http://blogs.msdn.com/andygon/archive/2010/04/15/visual-studio-2010-net-4.aspx

Descargar Visual studio 2010 ultimate (Ingles) 4 partes Directamente de microsoft

http://www.microsoft.com/downloads/details.aspx?familyid=06A32B1C-80E9-41DF-BA0C-79D56CB823F7&displaylang=en

Buenas...
bueno tengo ese problema
como hacer buskedas con el key de una collection???

Buenas
Bueno la verdad hace rato que estoy buscando un comprensor de aplicaciones que funcione con las hechas en .net... hasta el momento solo he podido encontrar ASPack, pero no me funciona muy bien que digamos...
SI alguien sabe de alguno porfa, informen
De ante mano muchas gracias.

Buenas

Bueno, resulta que cuando NO tengo ni la menor idea como crearle un evento a un control creado por code...
me explico mejor, tengo esto:

Código (vbnet) [Seleccionar] Expandir


public sub newControl(nomctrl as string)
   dim control as panel= new panel
   panel.name=nomctrl
   panel.left=0
   panel.text=nomctrl
  me.control.add(panel)


bueno algo asi tengo para crear con una funcion varios controles en tiempo de ejecucion, per lo que no no se es como crearle un evento como:

control_click(byval sender .... bla bla)

si alguien sabe como hacerle eventos a controles hechos en por code le agrezco el aporte... gracias.

buenas
Bueno esa es mi pregunta
Como hago para manejar varios archivos abiertos en mi aplicacion como si fueran pestañas, me imagino que para esto debo tener una aplicacion mdi. pero quisiera saber como los puedo manejar por pestañas como lo hace el dreamweaver, vs.net, jcreator y demas programas...
mucha gracias por la colaboracion

Buenas
de nuevo yo con mis dudas...
Estoy haciendo una aplicacion en vb.net de edicion de archivos en .ini o inf, pero me gustaria crear lineas de separacion con el sistema de minimizar toda una sección como lo hace vs.net

me explico:

cuando se crea una funcion o procedimiento en vs.net este inmediatamente crea una linea de separacion arriba y abajo, ademas de que le da un signo (+) o (-) para poder esconder o mostrar el code de tal funcion o procedimiento a veces al crear regions hace lo mismo separando asi las areas... a mi me gustaria crear esto en mi aplicacion, me imagino que esto se logra usando un control ritchTextbox, pero no se como se aplica...
si alguien sabe como realizar esto les agradezco la info...
de ante mano muchas gracias.

Buenas...

bueno hace poco que me pase a usar .net
tengo el siguiente problema:
estoy creando una aplicacion de windows forms en vb.net y nose como enviarle comandos a la aplicacion estando ya compilado...

en vb 6.0 se hacia asi

ExeComand as string

sub main()
ExeComand= Command
end sub

pero no se como recibir parametros al inicio de la aplicacion en vb.net
De antemao muchas gracias por la ayuda

Buenas
bueno resulta que necesito crear una estructura pero necesito darle un tamaño a las variables string como se hacia en vb 6.0
algo asi

Código (vb) [Seleccionar] Expandir


public type Datos
   nombre as string *20
   Apellido as string *20
end type


He buscado como hacer esto en vb.net y no logro dar con nada

Si alguien sabe porfavor que me diga..
gracias